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PREFACE 



This reference manual was written for programmers using the FORTRAN 
system. The manual assumes a basic knowledge of the FORTRAN language 
although it includes a section on general properties for users, less familiar 
with the construction of the FORTRAN language. 

The manual contains information required to produce and run a FORTRAN 
job. 
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3100/3200/3300/3500 FORTRAN SYSTEM 



The FORTRAN system provides a convenleat language for expressing mathe- 
matical and scientific problems in familiar notation. 

A set of FORTRAN statements, presented as a source program to the 
FORTRAN compiler, produces an object program that contains the 
machine language commands for solving a problem. Compilation progresses 
sequentially, from one subprogram to the next; each subprogram is independ- 
ently compiled. Once compiled, a program may be repeatedly loaded and run on 
the computer with varying sets of data. The compiler operates in conjunction 
with the SCOPE monitor system of a Control Data® 3100, 3200, 3300 or 3500 
computer. It generates programs to be executed under SCOPE control. 
Source programs require little modification to be accepted by FORTRAN com- 

mMoT-a foT lavcrp-r nDNTTTJOT, DATA COmOUterS. 



1.1 

MACHINE 
CONFIGURATION 



Basic configuration for compiling a source program: 

8K memory unit 

Magnetic tape library unit 

Input device (card reader or magnetic tape imit) 

Output device (printer or magnetic tape unit) 

Pimch output unit (card punch or magnetic tape unit) 

Two magnetic tape scratch units 



1.2 

OPTIONAL 

OUTPUTS 



Outputs that may be selected by the programmer include: 

• Relocatable binary cards or card images 

• Source program listing 

• Assembly language listing of machine instructions 

• Load-and-go object program for immediate execution 

Diagnostic messages are printed when the compiler detects coding errors. 
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1.3 
EXPRESSIONS 



An expression is a constant, variable (simple or subscripted), function, or 
any combination of these separated by operators and parentheses , written in 
compliance with the rules for constructing a particular type of expression. 

The four kinds of expressions in FORTRAN are: arithmetic and masking 
(Boolean) expressions, which have numerical values, and logical and relational 
expressions which have truth values. For each type of expression there is an 
associated group of operators and operands. 



1.4 
STATEMENTS 



The FORTRAN elements - expressions, operators, and operands - maybe 
combined to form two types of statements, executable and non-executable. An 
executable statement performs a calculation or directs control of the program; 
a non-executable statement provides the compiler with information regarding 
variable structure, array allocation, and storage-sharing requirements. A 
group of FORTRAN statements make up a source program. 

Statements can be divided into four classes: 

• Declarative 

• Replacement 

• Control 

■ Input/Qitput 

Declarative statements permit a programmer to (a) define the mode of a vari- 
able as character, real, integer, or other; (b) enter data; (c) reserve storE^e 
common to more than one subprogram or main program; and (d) overlay the 
same storage locations with variables and arrays during program execution. 

Arithmetic replacement statements incorporate expressions for addition, 
subtraction, multiplication, division, and exponentiation. Logical replacement 
statements may include relational and logical operators. 

Control statements alter the sequence of program execution conditionally or 
unconditionally. 

Input/ Output and encode/decode statements permit transfer of data from one 
storage location to another, or between computer storage and external equip- 
ments. Conversion and editing specifications provide diversity in input/output 
formats. 

Masking operations are available through the FORTRAN library routines; 
internal and external machine conditions may be tested by FORTRAN library 
functions. 
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1.5 

PROGRAMS A source program consists of one main program and/or several subprograms; 

they may be compiled individually and run as single programs. 

The following chapters review characteristics of constants, variables, opera- 
tors, operands, and expressions; set forth rules and conditions for use of 
FORTRAN statements; and describe organization of source decks. 



1.6 

CODING Each FORTRAN program and subprogram is constructed of symbolic characters, 

identifiers, and operators arranged in statements to be punched on standard 80- 
column cards. Coding uses the following character set: 

Alphanumeric characters: 

letters A through Z 
nimibers through 9 

Special characters: 

A blank 

equals 
+ plus 

minus 
* multiplication 
** exponentiation 

/ division or inter-record spacing 
( left parenthesis 
) right parenthesis 

, comma or separator 

decimal point 
$ delimits multiple statements written on same line 

Blanks may appear anywhere in a source statement. They are significant only 
in Hollerith constants or FORMAT specifications. 
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1.7 

CODING FORMS Coding is written on forms with the following format: 

Columns Content 



1-5 


6 


7-72 


73-80 


1 


2-72 


73-80 



Statement label 

Continuation designator (non-zero character) 
Statements 

Identification and sequencing 
r 

C - Comment designator 

Comments 

Identification and sequencing 

A line contains a string of up to 72 FORTRAN characters. The character 
positions in a line, columns, are numbered consecutively, 1 through 72. 

A C in column 1 identifies the line as a comment; comments are for the con- 
venience of the programmer and permit him to describe the program steps; 
they do not influence the program. A comment may be inserted at any point In 
the program. Comment cards are listed along with the source statements when 
the source list option is selected. 

Columns 1 through 5 may be blank or may contain a label that identifies the 
line for reference elsewhere in the program. A statement number (label) 
must be unique within a subprogram, and in the range 1 through 32767. 

A statement that is labeled and never referenced (a null) causes an informative 
diagnostic during compilation but does not inhibit execution of the compiled 
program. 

The compiler ignores blanks and leading zeros in statement numbers. 

Statements in the formats outlined in this manual appear in columns 7 through 
72. A statement that exceeds the 66 characters allowed on a single card may 
be continued on successive cards. 

The size of a source statement and, consequently, the number of allowable 
cards per statement are limited according to the equation: 

2n + m < 500 characters 
n = number of identifiers 
m = number of symbols and constants 
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This permits at least five cards (4 continuation cards) per statement with the 
worst case being 167 single-character identifiers and 164 operators. Continua- 
tion cards may not be labeled; columns 1 through 5 must be blank. A character 
other than zero in column 6 designates continuation. 

More than one statement may be written on a line (card) by using the $ to 
separate the statements, subject to the following rules: 

The statement following $ may not be labeled. 

The $ may not be used with FORMAT statements or continuations of 
FORMAT statements. 

A statement ends when the compiler reads a $ or a new record having column 6 
blank. 

The compiler does not interpret column 73 through 80. These columns are for 
sequencing or program identification. 



SAMPLE FORTRAN CARDS 



2 




5 6 7 72 73 80 






! (TOTAL = TOTAL + DATA(I) | 33 
• ' 1 

1 1 ! 






i/ 


; " 1 

12' iNPLUS = NPLUS +1 i 32 
' 1 I 

! 1 ! 




1 




/ 1 I IF(DATA(I)) 4,16,12 j 31 



Three statements are shown, one on each card. One is labeled; all three are 
sequenced. Because no statement is continued, column 6 is blank. 
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SAMPLE FORTRAN CODING FORM 



1 5 


7 72 




80 




PROGRAM BIGJOB 


24 






DIMENSION DATA (800) 


25 






SQUARE = 0. 


26 






TOTAT, = 0. 


27 






NPLUS = 


28 






NZERO = 


29 






DO 20 I = 1, 800 


30 






IF (DATA(I)) 4,16,12 


31 




12 


NPLUS = NPLUS + 1 


32 






TOTAL = TOTAL + DATA (I) 


33 




4 


SQUARE = SQUARE+nATA(I)*DATA(I) 


34 






GO TO 20 


35 




16 


NZERO = NZERO + 1 


36 




20 


CONTINUE 


37 






B = NPLUS 

• 
• 


38 
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ELEMENTS OF FORTRAN 



2.1 
CONSTANTS 



FORTBAN accepts four basic types of constants: integer, octal, real, and 
Hollerith. The type of a constant is determined by its form. Each real con- 
stant occupies two consecutive computer words (24 bits per computer word) . 
Each of the other three types occupies only one computer word. 

If a constant exceeds the allowed range, the statement in which it is used is 
rejected during compilation and a diagnostic is provided. 



2.1.1 

INTEGER 



23 23 

An integer constant consists of up to 7 decimal digits in the range -2 <n<2 

(from -8,388,607 to 8,388,607). 



Examples: 



63 

247 



-3141592 
3674631 



8388607 
-464646 



The structure of the translated constant is: 



value 



2322 

S = 1 ; value is complemented (negative) 
0; value is uncomplemented (positive) 



2.1.2 

OCTAL 



An octal constant consists of up to 8 octal digits terminated by a B in the form 

n^ . . . njB 
A minus sign before the octal number designates the seven's complement. 



Examples: 



GOB 
00077777B 



23232323B 
77B 



77777700B 
-31314672B 
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2.1.3 

REAL 



The structure of the translated constant is: 



Oc, 


Ocp 


OC3 


OC4 


OC3 


Ocg 


OC7 


°^8 



23 



Ocj is a 3-bit octal digit. 



A real constant is represented by a string of up to 11 digits in the range 

< n < 236-1. It may be expressed with a decimal point or with an exponent 

representing a power of ten or both in the forms: 



nE nE±s n. n. E±s 

n.n n.nEiS .n .nE±s 



s is the exponent to the base 10. The range of s is through 308. The constant 
may be signed. The maximum value is . 68719476735E308. 



Examples: 



3.1415768 

.31415E1 

-.31415E+01 



-314. 
3459E05 



. 0749162 
31.41592E-01 



Structure of translated constant: 
first word 



second word 



s 


Biased 
Exponent 


Fraction 



Fraction 



2322 



1211 







23 



S - 1 ; fraction and biased exponent are complemented 
; fraction and biased exponent are uncomplemented 



2.1.4 

HOLLERITH 



A Hollerith constant is a string of characters of the form nHw ; n is an unsigned 
decimal integer, 1 through 4, that represents the length of the field, w. Spaces 
are significant in the field. When n is less than 4, the word is left-justified 
with BCD blanks (eOg) filling the remainder of the word. When n is greater 
than 4, the statement is rejected and a diagnostic is provided. 
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An alternate form of a Hollerith constant is nRw. When n is less than 4, the 
computer word is right-justified with zero fill. When n is greater than 4, the 
statement is rejected and a diagnostic is provided. 



Examples: 



2HOK 
4HERG0 



3HSUM 
4R3600 



3R0UT 
IH) 



Structure of translated word: 



Chj 


Chj 


Ch3 


Ch4 



23 



Chi is a 6-bit BCD character. 

A Hollerith constant occupies one computer word and is represented by internal 
BCD codes treated as integers. 



2.2 
VARIABLES 



Variable names are alphanumeric identifiers that represent specific storage 
locations. 



The FORTRAN compiler recognizes simple and subscripted variable names. 
A simple variable name represents a single quantity; a subscripted variable 
name represents a single quantity within an array of quantities. The variable 
type is designated explicitly in a type declaration (Chapter 5) or implicitly by 
the first letter of the variable name. A first letter of I, J, K, L, M, or N 
indicates a fixed point (integer) variable; any other first letter indicates a 
floating point (real) variable. 



2.2.1 

SIMPLE VARIABLES 



A simple variable name identifies the location in which a variable value can be 
stored. Any integer value in the range Inl ^ 2^^-l may be referenced by a 
simple integer variable name. 



Examples: 



N 
K2S04 



LOX 
NOODGE 



M58 

M 58 



Because spaces are ignored in variable names, M58 and M 58 are identical. 
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—308 308 

Any signed value from 10 to 10 may be referenced by a simple floating 

point variable . 



Examples : 



VECTOR 
BAGELS 



A65302 
BATMAN 



2.2.2 

SUBSCRIPTED 
VARIABLES 



An array is a block of successive memory locations comprising the elements 
of the array. Each element of an array is referenced by the array name plus 
a set of subscripts. The type of an array is determined by the array name or 
a type declaration. Arrays may have one, two, or three dimensions; the 
maximum number of array elements is the product of the dimensions. The 
maximum number of words used in an array cannot exceed 32767. The array 
name and its dimensions must be declared at the beginning of the program in 
a DIMENSION or COMMON statement. 



2.2.3 

SUBSCRIPT FORMS 



A subscript has one of the following forms; c and d are integer constants and 
I is a simple integer variable. 



(c*I±d) 
(I) 



(c) 



(c*I) 



More than three subscripts cause a compiler diagnostic. Program errors may 
result if subscripts are larger than the dimensions initially declared for the 
array. A single subscript notation may also be used for a two- or three- 
dimensional array if it is the structural location of the variable. However, 
the elements of a single-dimensioned array A(d2) may not be referred to as 
A(I, J, K) or A(I, J). Diagnostics wUl occur if this Is attempted. 



Examples: 



A(I, J) 

P(KLIM, J, LIM+5) 

B(l, 2, 3) 



B(I+2, J+3, 2*K+1) Q(14) 

SAM(J-6) A(133) 
A (233) 



At no time during program execution can a simple Integer variable used as an 
index variable take on a value greater than 32767. 
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2.2.4 

ARRAY STRUCTURE 



Elements of an array are stored by column In ascending storage locations. 
Type real arrays require two storage locations for each array element; type 
character arrays, however, are stored 4 array elements per location. 

The location of an array element with respect to the first element is deter- 
mined by the maximum array dimensions and the tjrpe of the array. 

The first element of array A(I, J, K) is (1,1,1). The location of element 
A(i, j , k) with respect to A(l , 1 , 1) is 

Loc A(i,j,k) = Log A(1,1,1) +[(i-l)+(j-l)*I+(k-l)*I*j]*E 

The quantity in braces is the subscript expression. E Is the element length 
(the number of storage locations required for each element of the array). For 
integer arrays, E = 1; for real arrays, E = 2; for character arrays, E = 1/4. 
Subscripts i, j,k may be any of the allowed subscript forms. 

Factoring the ejg)ression produces 

a base address: S, the first word of A(l ,1,1) 

a constant addend: -(1-I+I*J)*E 
an index function: (i+I*j+I*J*k) *E 

When i,j,k are other than simple variables, for example, c*I±d, constants 
such as d appear in the constant addend. 

Example: In the array declared as A(3 , 3 , 3) : 



Am Ai2i Ai3i 
^211 ^221 A231 



A311 A321 



^331 



^112 
"^212 
A312 



n22 



^222 
^322 



^132 



^232 
^332 



ni3 
^213 



^313 



1=3; i=l,2,3 
J=3; j=l,2,3 
K=3; k=l,2,3 



423 
^223 



^323 



n33 
^233 
^333 



2-5 



The elements of this real array are stored two words per element starting 
with A(l, 1, 1) in S, the lowest location reserved for the array. 

locations array element 



Ai,j,k 

S, S+1 Am 

S+2, S+3 A211 

S+4, S+5 A3 11 

S+6, S+7 A121 

S+8, S+9 A221 

S+-10, S+ll A321 



S1-12, S+13 A 



131 



S+48, &+-49 A133 

S+50, S4-51 A233 

S^-52, S<-53 A333 

Referring to the example, if Loc A (1,1,1)=S: the locations of A(2,2,3) with 
respect to A (1 , 1 , 1) are : 

Loc A(2,2,3) = Loc A(l,l,l) + [(2-l)+(2-l)*3+(3-l)*3*3] *2 = &^-44, S^-45 

The following relaxation on the representation of subscripted variables is per- 
missible: 

Given A (di, d2, d3) dj are integer constants 

then A(I, J, K) implies A(I, J, K) 
A(I, J) implies A(I, J, 1) 
A(I) implies A (1, 1,1) 

A implies A (1,1,1) 

similarly, for A (d^ , 62) 

A (I, J) implies A (I, J) 
A(I) implies A(1, 1) 

A implies A(l,l) 

and for A(d2^) 

A implies A(l) 
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EXPRESSIONS 



An expression can be a constant, a simple or subscripted variable, a function, 
or any combination of these separated by operators and parentheses. It can 
contain non-standard and mixed modes of arithmetic; however, when non- 
standard or mixed modes are used, special rules apply to operators. Non- 
standard arithmetic requires that the programmer add special COMPASS 
routines to the FORTRAN library. 



3.T 

ARITHMETIC 

EXPRESSIONS 



The following operators are used in arithmetic expressions: 



Symbol 


Function 


+ 


addition 


- 


subtraction 


* 


multiplication 


/ 


division 


** 


exponentiation 



Arithmetic elements are: 



Constants 

Variables (simple or subscripted) 

Functions 



Examples: 



A 

3.141592 

B+16. 8946 

(A-Ba,J+2)) 

G*C(J)+4. 1/(Z (J, 3*K))*SINF(V) 
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Rules: 

1. In an arithmetic e35)ression do not use adjacent arithmetic operators; 
X op op Y; or adjacent arithmetic elements; A(B+C)D. 

2. If X is an e3q)ression, then PQ, ((X)), et cetera, are expressions. 

3. IfX, Y are expressions, the following are expressions: 

X + Y X/Y 

X- Y X * Y 

4. Expressions of the form X**Y and X**(-Y) are legitimate, subject to the 
restrictions in section 4. 2, rule 4. 

5. There is no implied multiplication. 

X(Y) does not imply X*(Y) 

Constant (X) does not imply constant *(X). 



3.1.1 

ORDER OF 

EVALUATION The hierarchy of arithmetic operations is: 

** exponentiation class 1 

/ division } ^^^^^2 

* multiplication ) 



+ addition 

subtraction 



class 3 



In an expression with no parentheses or within a pair of parentheses, in which 
unlike classes of operators appear, evaluation proceeds from left to right. 
The first operator of such an expression is compared against the second. If 
the first operator takes precedence over the second, the operation is scheduled 
for execution. If the second operator takes precedence over the first, or is 
equal to the first, the first operation is delayed and the second operator is 
compared against the third. 
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Example: 

(A+B*C**D) 

+ < * A+B delayed 

* < ** B*C delayed 

** last operator 

C**D scheduled for execution 

C**D -^ % 

R indicates an intermediate result, not necessarily a temporary storage. 

The operations that were delayed are then scheduled for execution in 
reverse order: 

B Ri -^ Ro 

A+R2 "*" Rq 

If an expression contains consecutive operations involving operators of like 
class (A+B+C, A*D*r, A-B+C), the left to right evaluation is modified. (This 
does not apply for A*B/C, A/B*C, A/B/C, orA**B**C.) The first operation, 
plus subsequent operations, will be delayed untU the end of the statement is 
reached or an operator of unlike class is encountered. 

Examples : 

(A+B+C+D+E+F) 
(R+S+T-U-V-W) 
(A+B-C-rH-E*R) 

When the end of the statement is reached, the delayed operations are scheduled 
for execution in reverse order and the final expression is the last to be executed. 

Examples: 

(A+1B+2C+3D+4E+5F) 
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+l=+2 


A + B delayed 


+2 = +3 


B + C delayed 


+3 = +4 


C + D delayed 


+4 = +5 


D + E delayed 



order established by scan evaluation 

D + E ^Ri 

C + Ri ^R2 

B+R2^R3 

A + R3^R4 

+5 R4 + F-*R5 

If an unlike operator of greater precedence is encountered within a sequence of 
like operators (A+iB+gC^D+qE+.F), the evaluation will proceed as follows: 

order established by scan evaluation 

+1 = +2 A + B delayed C * D ^' R-,^ 

+2 < * B + C delayed B + R^ -^ Rg 

* > +3 C * D scheduled for execution A + R2'~^ R3 

+3 = +2 B + C scheduled for execution R3 + E — » R^ 

+3 = +1 A + B scheduled for execution ^4 ^ ^ ~^ ^5 

+3 = +4 D + E delayed 

+4 last operator D + E scheduled 
E + F scheduled 

If the unlike operator is of less precedence the evaluation will be as follows : 

(A*iB*2C+D*3E*4F) 

order established by scan evaluation 



*1 = *2 


A * B delayed 


A * B -*R^ 


*2> + 


A * B scheduled for execution 


Rl * C ->R2 


*!> + 


B * C scheduled for execution 


D * E -> R3 


+ <*3 


C + D delayed 


R3 * F->R4 


*3 = *4 


D * E delayed 


R4 + R2^R5 


*4 last operator 


D * E scheduled for execution 
C + D remains delayed 
E * F scheduled for execution 
C + D scheduled for execution 
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An expression of the form (A+B+C*D*E**F+G+H) would be evaluated in the 
following manner: 

order established by scan evaluation 



+l = +2 


A + B delayed 


E ** F^Ri 


+2< *1 


B + C delayed 


D *Ri^R2 


*1 = *2 


C * D delayed 


C *R2^R3 


*2< ** 


D * E delayed 


B + R3-^R4 


** > +3 


E ** F scheduled for execution 


A + R4-5'R5 


*2 > +3 


D * E scheduled for execution 


R5 + G^Re 


*1 >+3 


C * D scheduled for execution 


Re + H^Rv 


+2 = +3 


B + C scheduled for execution 




+l=+3 


A + B scheduled for execution 




+3 = +4 


F + G delayed 





+4 last operator 

+4 = +3 F + G scheduled for execution 

G + H scheduled for execu. Ion 

The use of additional parentheses will alter the order of evaluation and will 
greatly affect the results when working with mixed mode. 

In parenthetical expressions within parenthetical expressions, evaluation begins 
with the innermost expression; they are evaluated as encountered In the left to 
right scanning process. 

Examples: 

In the following examples, R radicates an intermediate result in evaluation: 

1. A**B/C+D*E*F-G is evaluated; 
A ** B -*Ri 
R-i / C "*■ Ro 
D * E -* R3 
R3 * F ->R4 
R4 + Ro "^ R5 
R5 - G -^Rg 



3-5 



2. A**B/ (C+D)*(E*F-G) is evaluated: 

A ** B ^Ri 
C + D -&-R2 
Rl/R2-*R3 
E * F ->R4 
R4 ~ G ->• Re 
R3 * Rg ^R6 

3. When the expression contains a function, the function is treated as a 
parenthetical expression. 

H(13)+C(I, J+2)*(COSF(Z))**2 is evaluated: 
COSF(Z) s^Ri 
Rl ** 2-^R2 
R2 *C(I,J+2)^R3 
R3 + H(13)^R4 

Examples 4 and 5 are examples of expressions with embedded parentheses. 

4. A*(B+((C/D)-E)) is evaluated: 

C/D->Ri 
Rl - E ->R2 
R2 + B -S-R3 
R3 * A ->R4 

5. A*(SINFpi)+l.)-Z/ (C*(D-(E+r))) is evaluated: 

SINF(X) ^Ri 
Rl + 1. -3-R2 
R2 * A ->R3 
E + F-^R4 
-R4 -*-R4 

R4 + D -S-Rg 

R5 * C ->R6 
-Z/Rg ->Ry 
R7 + R3 -^R3 
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3.1.2 

TYPE REAL 
ARITHMETIC 



Expressions containing only type real constants and variables accept all stand- 
ard operators and require no special rules. 



3.1.3 

TYPE INTEGER 
ARITHMETIC 



Integer expressions are processed from left to right and modified by delayed 
operations. Also, dividing an integer quantity by an integer quantity yields a 
truncated result; thus 11/3 = 3. The expression I*j/K may yield a result 
different from the expression I*(J/K). 



I*J/K = i^ = 



I*(J/K)=— =4 



3.1.4 

TYPE CHARACTER 
ARITHMETIC 



FORTRAN includes routines that load, store, complement, add, and subtract 
CHARACTER constants and variables. Routines in COMPASS language may be 
supplied by the user. Characters dimensioned in an array are assigned four 
to a computer word. Simple variables are assigned one storage location per 
variable in the upper 6 bits (18 to 23) of the computer word. The compiler 
generates code which performs CHARACTER arithmetic in the lower 6 bits of 
the arithmetic registers and stores as the result the lower 6 bits of the A 
register. 



Example: 



CHARACTER B, 
RESLT = BfC 



C. RESLT 



B=8 


10 


00 


00 


00 


C=9 


11 


00 


00 


00 










RESLT=A 


21 00 


00 


00 



For character arithmetic, simple character values are used as 6-bit integer 
quantities, right justified. The result, the lower 6 bits of the A-register, is 
stored in the high order 6 bits of the computed variable. 



3.2 

MIXED-MODE 

ARITHMETIC 



Arithmetic expressions can contain mixed types of constants and variables. 
Mixed-mode arithmetic is accomplished through the special library conversion 
subroutines (Appendix C) . 
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The three standard operand types are real, integer, and character. The 
programmer may define one non-standard type per subprogram. Type declara- 
tions are covered in Chapter 5. 

The following rules establish the relationship between the type of an evaluated 
expression and the types of the operands it contains. 



Rules: 
1. 



The order of dominance of the operand types within an expression 
from highest to lowest is: 



Non-standard 
Real 
Integer 
Character 

2. The dominant operand type determiaes the type of an evaluated arith- 
metic expression. 

3. A non-standard type may be mixed with any or all of the standard 
types. 

4. In expressions of the form A**B, the following rules apply: 

. When A or B is type other or character, the user must provide 
the conversion routines. 

. For the standard types the mode/type relationships are: 



\. Type 
Type\ A 
B ^v 


Character 


Integer 


Real 


Character 


Character 


Integer 


Real 


Integer 


Integer 


Mteger 


Real 


Real 


Real 


Real 


Real 



For example, when A is real and B is integer, the mode of A**B is real. 

In mixed mode arithmetic, the mode used to evaluate any portion of an expres- 
sion is determined by the dominant type thus far encountered within the 
expression and the normal hierarchy of arithmetic operations; integer, mode 
will be used when an integer type is first encountered and will be converted to 
real mode when a real type is encountered. 
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Examples: 

1. Given A, B type real; I, J type integer. The mode of evaluating the 
expression (A*B-I+J) will be real because the dominant operand is 
t5rpe real. It is evaluated: 

A * B -*Ri real 

Convert I to real 

B.I - I-*-R2 real 

Convert J to real 

R2 + J -» R3 real 

2. The use of parentheses can change the evaluation. A, B, I, J are 
defined as above. (A*B-(I-J)) is evaluated: 

A * B^R]^ real 

1 - J -> R2 integer 

Convert R2 to real 

Rj - R2 ^"^3 real 

3. Given C, D type character and I type integer, the mode of evaluating 
expression (C-D+I) is integer. 

C - D -»R| character 

Convert R^ to integer 

Rl + I^ R2 integer 

4. In the expression (I+C-D) variables C, D are character; I is integer. 
Evaluation proceeds: 

Convert C to integer 

I + C ->Ri integer 

Convert D to integer 

R]^ - D ->R2 integer 

When an operation is to be performed on operands of different modes , conver- 
sion is implemented during the normal evaluation. When Integer and real 
modes are mixed, FORTRAN will perform the conversion and the operation for: 



add 


divide 


subtract 


exponentiate 


multiply 


store 



3-9 



The generated calls and their descriptions are contained in Appendix C. 

When integer and character, or real and character modes are mixed, FORTRAN 
generates code that performs the conversion and operation for: 



add 


load 


subtract 


complement 


store 





If other operations (multiply, divide, exponentiate) are to be performed, the 
necessary conversion routines must be supplied by the user (Appendix C). 

For mixed Integer and character, the add and subtract routines are imple- 
mented during the evaluation, and no reference is made to external routines. 



3.3 

LOGICAL 

EXPRESSIONS 



A logical expression has the general form 

r^ op T2 op r3 

in which rj are simple variables, arithmetic expressions, or relational 
expressions; and op is either the logical operator .AND. indicating conjunction 
or . OR. indicating disjunction. 

The value of a logical expression is either true (1) or false (0). 

Logical expressions are generally used in logical IF statements (section 6. 2). 

Rules: 

1. Precede and follow logical operators , AND. and . OR. with either a 
relational or an arithmetic expression. 

2. Precede . NOT, only with . OR. , . AND. or the beginning of the 
expression. 

r-^ .AND. .NOT. rg 
Ti .AND. V2 
.NOT. r^ 
ri . OR. rg . AND. r^ 

3. If op is either . AND. or . OR. do not use a logical expression of the 
form Ti op op Y2- 
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4. Do not enclose logical operators within parentheses. 

5. Do not nest logical expressions. 

6. Each logical operator applies to the relational ejcpression up to the 
next logical operator or to the end of the logical expression, except in 
an expression of the form: 

r, . AND. . NOT. r . OR, r 
. NOT, refers to r- 
.AND. refers to .NOT. t^ 
, OR, refers to rg 

7. . NOT. may appear in combination with .AND. or . OR, only as follows: 

,AND. .NOT. r^^ 
.OR, ,NOT, ri 

8. Logical statements are evaluated from left to right. 

9. The logical operators are defined as follows: 

, NOT. r-, is false if r^ is true 

r-. . AND. T2 is true only if r^^ and r2 are true 

r^ . OR. r2 is false only if r^ and V2 are false 

Examples: 

1) R = A ,OR, B ,0R. C ,OR, D ,AND. E .AND. F .AND, G 

R = D .AND. E .AND. F .AND. G ,OR, A ,0R. B ,OR. C .OR, D 

These two statements provide the same results, but the first process may be 
faster since the truth value of A, B, or C eliminates the need for evaluating 
D, E, F, and G. 

2) FORTRAN does not permit the form R = . NOT. (. NOT. (. NOT. (A. AND. B) 
. AND. C) . OR, , NOT. (B, AND. C. OR. A)) . The same results may be 
obtained, however, by one of the following methods: 

The example may be reduced using the rules of Boolean logic, to: 

R= .NOT. A .AND. B ,AND. C , OR, A .AND. .NOT, B .AND. C 



3-11 



The sii^le statement may be replaced with a series of statements 
representing the nested groups : 

X = A.AND. B 

X= .NOT.X.AND.C 

R= B.AND.C.OR.A 

R = . NOT. X. OR. . NOT. R 

R = . NOT. R 



3.4 

RELATIONAL 

EXPRESSIONS 



A relational expression has the form: 

qi op qg 
The q's are arithmetic expressions; op is an operator belonging to the set: 



Operator 

.EQ, 
.NE. 
.GT. 
.GE. 
.LT. 
.LE. 



Meaning 

Equal to 

Not equal to 

Greater than 

Greater than or equal to 

Less than 

Less than or equal to 



A relation is true if qi and q2 satisfy the relation specified by op. A relation 
is false if q-^ and q2 do not satisfy the relation specified by op. 

Relations are evaluated as illustrated in the relation, p . EQ. q. This is 
equivalent to the question, does p-q = ? 

The difference is computed and tested for zero. If the difference is zero, the 
relation is true. If the difference is not zero, the relation is false. Relational 
expressions are converted internally to arithmetic expressions according to 
the rules of mixed mode arithmetic. These expressions are evaluated and 
compared with zero to determine the truth value of the corresponding relational 
expression. 
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Rules: 

1 . Use a relational operator between two arithmetic expressions. 

2. In a relational expression, do not use more than two arithmetic 
expressions connected by a single relational operator; q^ op q2 op qg 
is not allowed. 

3. Separate two relational expressions with a logical connector, .AND, 
or . OR. , in the forms: 

Land. / 

ll op q2 _ Qj^_ j q2 op qs 

LAND. ) 
ll op q2 _ OR. [ ^3 op <14 

4. An arithmetic expression, by itself, is a relational expression. It is 
considered TRUE if the resultant value is non-zero. 

5. The following relational expressions are equivalent. 

Ql op q2 
Ql op (qg) 
(qi) op (q2) 
(qi) op q2 

6. Do not enclose relational operators with parentheses. 

7. Do not nest relational expressions. 
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Examples: 

Simple relational expressions 

A .GT, 16. 

CD-Q(I)*Z),LE. 3. 141592 
(B+C).LT. (A-D) 

Evaluation of expressions 

1) A*B .GT. 16.. AND. C.EQ. 3.141519 



(begin) 



A*B-16.— * L, 



Is L >0? 



No 



Yes 



C-3, 141519 — L„ 



f \ No 



Yes 





-HIALSE 
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2) A(I) . GT. , OR. B(J) . LT. 



fBEGim 



Is A(I)>0? 



Yes 



No 



(Is B(J)<0? 



Vies 




-HTRUE 



No 



[false] 



3) L2 . OR. . NOT. L3 



(BEGIffl 



fis L^ 5^ 0? j— 2 M Is L^ = 0? V^^^ »iFALSE 




Yes 



Yes 



(TRUE ) 
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4) L2 .OR. .NOT, L3 .AND. .NOT, L6 .OR, L5 



[begin] 



No 



Is L^ ^ 0? 



No 



Is L^ = 0? 



Yes 



Is L^ = 0? 



No 



r.. 



^ 0? 



No 



(FALSEj 



Yes 



Yes 



Yes 




3.5 

MASKING 

FUNCTIONS 



Masking expressions are formed with the aid of system library functions. 
Masking operations are performed bit-by-bit on the actual parameters of the 
function reference. The parameters may be constants, variables, functions, 
or expressions of integer type. 

Although names of masking functions are nearly identical in appearance to 
logical operators, their meanings are different. 

The masking functions listed below may be referred to in any expression. The 
resulting value is supplied in an expression wherever the masking function and 
arguments appear. 

NOT (a) Form in the accumulator the complement of the integer 

operand. 

AND (a, b) Form in the accumulator the bit-by-bit logical product of 

the integer operands. 
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OE (a, b) Form in the accumulator the inclusive OR of the integer 

operands. 

EOR (a,b) Form in the accumulator the exclusive OR of the integer 

operands. 

Scanning of the e35)ression is left to right and masking functions in expressions 
are evaluated as they are encountered. 

Operations performed by the functions: 



a 


b 


NOT (a) 


AND(a,b) 


OR(a,b) 


EOR(a,b) 


1 


1 





1 


1 





1 











1 


1 





1 


1 





1 


1 








1 












Examples: 



a = 77770000 

h = 77777777 

c = 00001763 

d = 20045000 

NOT (a) is 00007777 

AND (a, d) is 20040000 

OR (c,d) is 20045763 

EOR(b,c) is 77776014 



octal forms of integer values 
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REPLACEMENT STATEMENTS 



4.1 
REPLACEMENT 

STATEMENT 



The general form of the arithmetic replacement statement is 

V = e 

e is an arithmetic, logical, or relational expression and v is any variable name, 
simple or subscripted. The operator = means that v is replaced by the value 
of expression e, with conversion for mode if necessary. 

Examples: 



5 


r 






RESLT = X+Y-2. *R 






SUMK = X+Y+Z 






ARG(LAB) = 2, *X+C0MP**2 






SCEL = BIG .LE. SMLL 






TAB = .NOT. X .OR. Y .OR, Z 


.AND. A 




EE = AA.GE.BB.OR.CC.GE.DD 





4.2 

MULTIPLE 
REPLACEMENT 
STATEMENT 



The multiple replacement statement is an extension of the arithmetic replace- 
ment statement: 

i"n = ^n-1 = • • • = r2 = ri = a 

a must be an arithmetic expression, r^ are simple or subscripted variables 
and may be any of the standard or non-standard types. 

The multiple replacement statement indicates that each of the variables, 
ri . . . rjj, will be replaced with the value of a in a manner analogous to that 
employed in mixed mode arithmetic statements. 
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Examples: 



1 5 


r 






I = 


= R=4.6 

4.6— .-R 

4 —-1 



1 5 


7 




C= 1 = 123 

123 — ^I 
59 — *C 



! 5 


7 




1= R= -14.6 

-14.6— »-R 
-14 — »-I 



I integer The numbers in the examples 

R real represent the evaluations of 

C character expressions 



Example: 

Problem Convert radians to degrees and minutes 



Solution 


1 5 


7 














DEGI=IDEG=DEG=BETA*57 . 296 






IMIN=(DEG-DEGI)*60 


BETA 


= 2.6 radians 


(real) 


DEG 


= 148. 9696 degr'=ies 


(real) 


IDEG 


= 148 degrees 


(integer) 


DEGI 


= 148. 0000 degrees 


(real) 


IMIN 


= 58 minutes 


(integer) 


Result 


2.6 


radians = 148 deg 


rees 58 minutes 



4.3 

MIXED-MODE 
REPLACEMENT 
STATEMENT 



Although the type of an evaluated expression is determined by the type of the 
dominant operand, this does not restrict the types that identifier a may assume. 
The following chart shows the a to e relationship for all of the standard modes. 

Arithmetic Replacement Statement: a = e 

a is an identifier 

e is the evaluated arithmetic expression 
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"\^ Type 








Typ§\^ e 


REAL 


INTEGER 


CHARACTER 


of a ^\,^ 








REAL 


Store e in a. 


Convert e to 


Convert e to 






REAL. Store 


REAL and 






in a. 


store in a. 


INTEGER 


Truncate e to 


Store e in a. 


e is stored as 




an INTEGER. 




an INTEGER 




Store in a. 




in a. 


CHARACTER 


Convert e to 


Store the 6 


Store the 6 




an INTEGER 


low -order 


low -order 




and store the 


bits of e in a. 


bits of e in a. 




6 low-order 








bits in a. 







Examples 
1) 



CHARACTER C,D 
DIMENSION C(2) 
D = C(l)+C(2) 



C(l) and C(2) are added in character arithmetic. The low order 6 bits 
of the sum are stored as a character in D. 



2) 



CHARACTER C 
DIMENSION C(2) 
I = C^-C^ 

The expression (Cg-Ci) is evaluated in character arithmetic. The 
result is converted to integer and stored in I. 



3) 



CHARACTER C 
DIMENSION C(3),I(3) 
J = I(l)-C(3)+I(3) 



The evaluated expression 1(1) -C (3) +1(3) is integer (Section 3.2). 



Convert C(3) to integer 
I(l)-C(3) Rj integer 
Rl+I(3) R2 integer 

J = R2 integer 
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4) 



5 7 



CHARACTER D 
DIMENSION 1(2) 
D = I(1)*I(2) 



The expression (I(1)*I(2)) is evaluated in integer arithmetic. The 
low-order 6 bits of the result are stored as a single character in D. 



5) 



I 5.7 



J = B(1)/B.(2)*(B(3)-B(4))+I(1)-(I(2)*B(5)) 



The expression is evaluated as follows 

B(3)-B(4)-^Rireal 
B(2)*Ri->R2 real 
B(l)/R2^a3 real 
Convert 1(2) to real 
I(2)*B(5)^R4 real 
Convert 1(1) to real 
1(1) -R4 -s>R5 real 
R3+R5 -?-Rg real 

The real value Rg of the expression is converted to integer and 
stored as J. 



6) 



CHARACTER A, C 
C = A/B 



The compiler generates a call to an external subroutine (supplied by 
user) that divides character variable A, by real variable B. 

A/B-*-R]^ real 

The result is converted to an integer and the lower 6 bits of the 24-bit 
word are stored in C. 
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DECLARATIVE STATEMENTS 



Declarative statements are non-executable statements that: 

Assign word structure to variables (TYPE) 

Reserve storage for arrays and single variables (DIMENSION, COMMON) 

Designate shared storage (COMMON, EQUIVALENCE) 

Assign initial values to variables (DATA) 

The declarative statements may be placed in any order prior to the first exe- 
cutable statement of a program or subprogram. 



Unless prestored with a DATA statement, each word of reserved storage 
non-zero. 



JLLU. trXCULX^ K^\JlJ.i,CU-tXtD CL X^bClXXl J U.JJ.1^ tAJ t.J.X& CU./1.X%-/ X J-U CIA XUU.l»Xi_l^* X iX^ WUXXli^XXbC} CLX ^t^ 



5.1 

TYPE STATEMENTS A type statement designates the word structure of variable and function iden- 
tifiers. FORTRAN recognizes three standard types with fixed word sizes and 
one non-standard type, the word size of which is defined by the programmer. 
Special compiler routines supplied by the user translate all expressions con- 
taining non-standard variables. 

Type Declaration Word Storage 

REAL list 2 words/element 

INTEGER list 1 word/element 

CHARACTER list 6 bits/element 

TYPE other (w) list w words/ element 

list is a string of unsubscripted identifiers separated by commas. For 
example: A, Bl, CAT, D36F, EUPHORIA 

The designator, other, is any alphanumeric identifier that identifies the non- 
standard type. The number of words per element for each non-standard 
variable in the list is specified by the integer w. 
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Rules: 



1 . Type declarations must appear with other declarative statements prior 
to the first executable statement in a program or subprogram. 

2. Unless declared, a variable is integer if the first character of its 
identifier is I, J, K, L, M, N and real if the first character is any 
other letter. 

3. Only one TYPE other is allowed in a subprogram; more cause di^- 
no sties. 

4. An identifier declared more than once assumes the highest type 
declared. 

TYPE other (highest) 

CHARACTER 

INTEGER 

REAL (lowest) 

5. An array identifier in list designates the entire array. 



Examples: 



REAL EL, CAMINO, REAL, IDE63 
INTEGER QUID, PRO, QUO 
CHARACTER ALPHA, BETA, GAMMA 
TYPE COMPLEX (4) AI47 , K156 



5.2 

DIMENSION 

STATEMENT 



The non- executable statements DIMENSION and COMMON reserve storage for 
arrays. A subscripted variable in an expression represents an element of an 
array of variables. 

DIMENSION vi (sj, S2, S3), V2(S4, S5, Sg),... 

An array name, vj;, has up to three unsigned integer subscripts, sj, separated 
by commas. 
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The number of storage locations reserved for a given array is determined by 
the product of the subscripts in the subscript string, and the number of words 
per type. An array may occupy a maximum of 32, 767 words. 

DIMENSION statements must appear with other declarative statements prior to 
the first executable statement in the program. 

Example: 



REAL HERCULES 

CHARACTER BEAT 

DIMENSION HERCULES (10,20), BEAT (5,3) 



The array HERCULES has 200 elements. Two locations are used to store 
each I'eal element; the number of locations reserved is 400. 

Character variables are dimensioned 4 characters per word in 6-bit elements , 
left to right, in each computer word. 

The 15 elements in the array BEAT occupy 4 sequential words: 



4 characters 



word 



word + 1 



word + 2 



12 3 4 



5 


6 


7 


8 



The label, BEAT, is 
equated to the 
location of the first 
character. 



9 


10 


11 


12 



word + 3 



13 


14 


15 





■ 3 characters 



The number of locations for an integer array equals the number of elements 
specified by the subscripts. 



5-3 



5.3 

COMMON 

STATEMENTS A program may be divided into independently compiled subprograms that use 

the same data. The COMMON statements reserve storage areas - numbered 
or labeled - that can be referenced by more than one subprogram. 

COMMON/DATA/list 

Assigns labeled common storage locations to variables and arrays designated 
in the list. Values in labeled common may be preset with a DATA statement. 



COMMON list 

Assigns numbered (blank) common locations to variables aad arrays designated 
in the list. These may not be preset with data. 



Rules: 



1 . COMMON statements are placed with other declarative statements 
prior to the first executable statement in the program . 

2. The identifier, DATA, for labeled common is fixed; any other identi- 
fier causes a diagnostic. 

3. List is composed of subscripted or non- subscripted variable identifiers. 
If a non-subscripted array name appears in the list, the dimensions 
must be defined by a DIMENSION statement in the subprogram. Array 
names may be dimensioned by the COMMON statement. If dimen- 
sioned in both statements, those in the DIMENSION statement are used. 

4. Attempting to list an identifier in both labeled and numbered common 
doubly defines the variable, and causes a diagnostic. 

5. The order of identifiers in the COMMON statement determines their 
order in the common storage block. 

6. At the beginning of program execution, the contents of numbered and 
labeled common (if not preset with a DATA statement) are undefined 
and non-zero. 

7. The type and quantity of identifiers determine the length of the common 
block. 

8. A subprogram may re-arrange the allocation of storage locations in 
common. 



5-4 



9. A subprogram may not increase the length of a labeled common block 
assigned by the first program. However, it may use less common 
than the first program. 

10. When a subprogram does not need all of the locations reserved in 
common, dummy variables in the COMMON statement achieve cor- 
respondence of reserved areas. 



Examples: 

1) Labeled Common 
I 5 



C0MM0N/DATA/D(15) ,F(3,3) 
COMMON/ DATA/ DATA (10) 



The label DATA does not restrict use of "DATA" as an identifier. 



I 5 



INTEGER Q, R 
C0MM0N/DATA/Q(4) , R(4) , S(2) 



origm 



Q(l) 
Q(2) 
Q(3) 
Q(4) 
R(l) 
R(2) 
R(3) 
R(4) 
S(l) 
S(l) 
S(2) 
S(3) 



Real variables each require 
two computer words . 



2) Numbered Common 



COMMON A,B(2),K 
COMMON 1(2), J(2) 
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origin 



A(l) 
A(l) 
B(l) 
B(l) 
B(2) 
B(2) 
K(l) 
1(1) 
1(2) 
J(l) 
J(2) 



3) Rearrangement of Common. 
MAIN PROGBAM 



COMMON/DATA/C(20) 



The labeled common occupies 40 storage locations. 

SUBPROGRAM 

I 5 It 



COMMON/DATA/A (10), 1(10), K(10) 



Labeled common is 40 storage locations. The first 20 locations (10 ele- 
ments of array A) of the block are real elements. Array I occupies the 
next 10 locations and array K the last 10 locations. 

4) Correspondence 

MAIN PROGRAM 



COMMON/DATA/A, B, C 



SUBPROGRAM 



COMMON/DATA/E , F, G 



Only the values of E and G are used in the subprogram; F is a dummy 
variable that spaces over the area initially reserved for B. 
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5.4 

EQUIVALENCE 

STATEAAENT 



The EQUIVALENCE statement permits storage locations to have several names. 

EQUIVALENCE (ai, b^, ...), (a2, b2, ...), ... 

(a., b , . . .) defines equivalent groups of two or more identifiers. 

The first elements of arrays may be aligned by equivalencing the array names; 
elements of integer or real arrays may be aligned by equivalencing singly sub- 
scripted variables. Array lengths need not be equal. 

When element A(i, j , k) of array A(I, J, K) is to be aligned with an element in 
another array, the subscript, s, Is determined by: 

s = i+(i-l)*I+(k-l)*I*J 

Example : 



DIMENSION A(2,3,4),B(3) 
EQUIVALENCE (A(7),B) 



in which,A(7) represents element A(l ,1,2) of array A and aligns it with element 
B(l) of array B. 



loo P 
loe P+1 



A(1,1,1)=A(1) 



loc P+12 

locP+13 [ A(1,1,2)=A(7) = B(1) 

loc P+14 } 

locP+15 [ A(2,1,2)=A(8) = B(2) 



p^J^ I A(1,2,2) = A(9) = B(3) 



loc P+1 6 
loc 
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Rules: 
1. 



EQUIVALENCE statements must appear with other declarative state- 
ments prior to the first executable statement In the program or 
subprogram. 

No more than one element of an EQUIVALENCE set may belong to 
common. 

An identifier used as a formal parameter cannot also be used in an 
EQUIVALENCE statement. 



4. For CHARACTER and TYPE other, use only array names and simple 
(non-subscripted) variable names in EQUIVALENCE sets. 

5. EQUIVALENCE cannot re-arrange common, However, arrays may 
be equivalent so that they change the length of the common block. 
See example 2. 

6. Attempting to change the origin of a common block causes a diagnostic. 
See example 3. 

7. An identifier may appear more than once in an EQUIVALENCE state- 
ment. See example 4. 

8. An identifier in a COMMON statement used in an EQUIVALENCE set 
is the base identifier for the EQUIVALENCE statement. When none 
in the set belongs to common, the identifier with the lowest address 
becomes the base Identifier. All other elements in the set are refer- 
enced to the base identifier. 



Examples: 



1) Align first elements of two arrays. 



DIMENSION A (10, 10), 1(200) 
EQUIVALENCE (A, I) 



READ (K1,10)A 
READ (K1,20)I 

The EQUIVALENCE statement assigns the first half of the first element, 
of real array A and the first element of integer array I to the same storage 
location. The READ request at statement 5 directs that the values of 
array A be stored in consecutive locations. Before statement 6 is executed 
all operations using the values of array A must be complete. The values 
of array I will be read by statement 6 into the storage locations previously 
occupied by A. (For READ statements, refer to Section 10. 2.) 
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2) Change the length of common. 



1 5 


7 




COMMON A 




DIMENSION A(5), B(5) 




EQUIVALENCE (A(3),B(1) 




loc.P Al 




Ioc.Pf2 A2 




loc.Pf4 A3 Bl 




A4 B2 




A5 B3 




B4 




B5 



3) Illegal attempt to change origin of common. 
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COMMON I 

DIMENSION 1(5), R(3) 

EQUIVALENCE 1(2), R(2) 



loc. 


p 


11 


loc. 


p+1 


12 


loc. 


P+2 


13 


loc. 


P+3 


14 


loc. 


P+4 


15 



4) Multiple use of identifiers. 

I 5 7 



EQUIVALENCE (A,B) , (C,D), (E,F), (A,F), (B,D) 



interpreted as 



EQUIVALENCE (A,B,C,D,E,F) 
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5.5 

DATA STATEMENT DATA statements permit variables in labeled common to accept constant values 
prior to program execution. 

DATA (ii=list), (i2=list) , . . . 

DATA (iO,k,l)=list) 

DATA ((((i(I, J, K) , I=ni , ng) , J=mj , mg) K=jei , ^)=list) 

i is an identifier representing a simple variable, array name, or a variable 
with integer constant (i,j,k) or integer variable (I, J,K) subscripts. 

For implied DO loops, subscript I ranges from integer U]^ to Ug; subscript J 
ranges from mj^ to m2, K ranges from % to S.2- 

List contains constants in the form: 

3-1,02,. . .r(b2>b2, . . .)Cj^,C2, . . . 

r is an Integer constant repetition factor that causes the parenthetical list 
following it to be repeated r times. A non-integer r produces a compiler 
diagnostic. 

Rules: 

1. DATA statements must appear with other declarative statements prior 
to the first executable statement of the program or subprogram. 

2. Because only identifiers in labeled common may be preset, each 
identifier appearing in a DATA statement must also be in a labeled 
common statement. 

3. Implied DO-loop notation is permissible with the restriction that DO 
indexing parameter, m3 (Section 6. 3), cannot appear. Implied DO 
loops are useful for storing constants in arrays. See example 1. 

When the number of list elements exceeds the rar^e of the implied DO, 
a diagnostic is given and compilation of the DATA statement terminates. 
If the list is too short, the compiler gives a diagnostic but continues 
processing. 

4. A constant preceded by a minus sign is complemented during conver- 
sion. 

5 . The structure of the constant rather than the type of the identifier 
determines the type of the stored constant. See examples 2,3, and 4. 
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6. When CHARACTER variables are to be preset, each constant In the 
list fills one entire storage location. See example 5. 

7. Ideally, there should be a one-to-one correspondence between the 
identifier locations and list elements. An array name specifies the 
first element address. The entire array may be prestored. 

Examples: 

1) Implied DO loop 



COMMON/ DATA/ GIB 

DATA ((GIB(I),I=1,I0)=1., 2., 3., 7(4.32)) 



esult: GIB contains 1 . 


GIB+1 


' 2. 


GIB+2 


' 3. 


GIB+3 


4.32 


GIB+4 


' 4.32 


GIB+S 


4.32 


GIB+e 


' 4.32 


GIB+7 


4.32 


GIB+S 


4.32 


GIB+9 


' 4.32 



2) A stor^e location accepts any type of constant regardless of the type of 
the identifier. 



DATA (A=2) 



Result: Contents of the first word of real element A becomes an integer 
2 - not a real 2 as might be expected from the type of the iden- 
tifier. 



00000002 



first word 



unchanged; 



second word 
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3) Store Hollerith constants In an integer array. 



I 5 



COMMON/ DATA/MESSAGE (3) 

DATA (MESSAGE = 3HWH0, 2HIS, 4HJ0AN) 



Result: MESSAGE contains WHO a 
MESSAGE+1 " IS A A 

MESSAGE+2 " JOAN 

4) An erroneous attempt to store real constants in an integer array produces 
the results shown below. 



COMMON/DATA/KILO (4) 
DATA(KILO = 2.6, 3.2E10) 



Result: KILO contains the upper half of 2. 6 in floating point 

KILO+1 contains the upper half of 3. 2E10 in floating point 

KILO+2 contains the lower half of 3. 2E10 

KILO^-3 is unchanged 

5) DATA constants fill entire, not partial, storage locations. Thus, 

CHARACTER data may be pre-set in labeled common but the values are 
not necessarily packed. The examples show the wrong and right ways to 
pack CHARACTER data. 

WRONG 



CHARACTER BOX 
COMMON/ DATA/ BOX ( 3 , 4 ) 
DATA(BOX = 3(1, 2, 3, 4)) 



Result: The constants 1, 2, 3, and 4 are repeated 3 times and stored in 
the low order 6 bits of 12 consecutive storage locations. Since 
BOX is dimensioned as 12 characters in 3 words, the results are 
erroneous. 
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RIGHT 



1 5 


7 




CHARACTER BOX 




COMMON/DATA/BOX (3,4) 




and 




DATA (BOX = 3(4H1234)) 




or 




DATA (BOX = 3(01020304B) 



Result: BOX contains 01 02 03 04 
BOX+1 " 01 02 03 04 

BOX+2 " 01 02 03 04 

6) Use extra care when presetting arrays with data. 

POOR 

I 5| |7 



C0MM0N/DATA/A(3) , X 
DATA (A = 1., 2., 3., 4.) 



Result: A contains 1. 



A+1 
A+2 
X 



2. 
3. 

4. Contents of X are changed with or without the 
knowledge of the programmer. 



POOR 



C0MM0N/DATA/C(3) 
DATA(C=1., 2,) 



Result: C contains 1. 
C+1 " 2. 

C+2 is left undefined. 
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CONTROL STATEMENTS 



Program execution normallj'^ proceeds from one statement to the next in the 
program. Control statements are used to alter the sequence or cause a number 
of iterations of a program section. 



6.1 

GOTO 

STATEMENTS 



GO TO statements transfer control within a program or subprogram. 



6.1.1 

UNCONDiTiONAL 
GOTO 



GO TOn 



Discontinues the current sequence of execution and resumes execution at the 
statement labeled n. 



6.1.2 

COMPUTED GO TO 



GOTO (ni,n2,...,nui).e 
GOTO (ni,n2,...,nm)e 

Is a many-branch GO TO in which arithmetic expression e is evaluated prior 
to branching; nj are statement numbers. 

e is reduced to an integer value, j. If j < 1, ni is executed next; if j >m, n^ 
is executed next; otherwise, j = i, and Uj is executed next. 
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Example: 
I 5 7 



10 



A=l 
B=2 
C=l 



GO TO (10,20,30), A*B-C 



/l=A+l 

GO TO (11,12,31), A*B-C 



Control transfers to statement 10 and then to statement 31 (not shown). 



6.2 

IF STATEMENTS 



Two- and three-branch IF statements conditionally transfer control. 



6.2.1 

THREE-WAY IF 



IF (e) ni,n2,n3 

Control transfers according to the value of the arithmetic expression e. 

e < statement n^ is executed next 
e = statement n2 is executed next 
e > statement n3 is executed next 

In the test for zero, = -0. 

Examples: 



IF(A*B-C*SINF(X)) 10, 10,20 

IF(I)5,6,7 

IF(A/B**2)3,6,6 
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6.2.2 

LOGICAL IF 



IF (£)ni,n2 

Arithmetic, logical, or relational expression £ is true (non-zero) or false 
(zero). If £ is true, statement n-j^ is executed next; if £ is false, statement ng 
is executed next. 



Examples: 



IF(A .GT. 16. .OR. I .EQ. 0)5,10 

IF(A .AND. B)l,2 

IF(C-D .LE. I>fE)4,6 

IF(X-Y)5,10 

IF (TCOUm) 10,11 

IF (.NOT. A) 5,6 



6.3 

DO STATEMENT 



The DO statement causes a predetermined sequence of instructions to be 
repeated a prescribed number of times, with the stepping of a simple integer 
variable after each iteration. 



DO n i = m]i , m^, 013 

Groups of statements are repeated according to the value of simple integer 
variable i which increases after each repetition. The DO loop terminates at 
statement number n. Indexing parameters mj^ are unsigned integer constants 
or simple integer variables, i is initially set equal to m^; after each execution of 
the DO loop, m3 is added to 1. (When omitted, m3 assumes a value of 1.) 
When i becomes greater than m2, the DO loop is satisfied. 

A DO loop is composed of the DO statement, terminatii^ statement n, and any 
intermediate statements. The range of a DO loop includes all of the statements 
following the DO statement down to and including the statement that terminates 
the loop. Statement n cannot be an IF, GO TO, or DO statement. 
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Rules: 



1. Indexing parameters nij^ may be unsigned integer constants or simple 
integer variables not greater than 32, 767. 

2. Constant parameters must be positive; when m^ is zero an informative 
diagnostic is given. 

3. When indexing parameters m^ and m2 are variables, they may be 
positive, negative, or zero. Indexing parameter mg may be a variable 
but must be positive. 

4. When the values of m2 and m^ axe changed during the execution of the 
DO loop an informative diagnostic is provided. 

5. i is initially equal to m^; as soon as i exceeds m2, looping terminates. 

6. DO loops may be nested to a maximum of 10 deep. 



6.3.1 

DO LOOP EXECUTION The initial value of i, m-|^, is compared with m2; if it does not exceed m2, the 
loop is executed, i is increased by m3 and again compared with m2. The 
process continues until i exceeds m2. Control then passes to the statement 
Immediately following statement n, and the DO loop is satisfied. Should m^ 
exceed m2 on the initial entry to the loop, the loop is not executed and control 
passes to the statement after n. 
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/startN 

\of DO i 



m^ — ► 1 



f Is i < m^? V 



No 



Yes 




Execute Statements 
in loop including 
statement N. 



i"htt„ 



When the DO loop is satisfied, the index variable i is no longer defined. If a 
transfer out of the DO loop occurs before the DO is satisfied, the value of i is 
preserved and may be used in subsequent statements. 



6.3.2 

DO NESTS 



A DO loop containing another DO loop is a DO nest. The last statement of a 
nested DO loop must either be the same as the last statement of the outer DO 
loop or occur before it. Dj represent DO statements; the subscripts indicate 
that D^ appears before D2 and D2 appears before D3 , et cetera, nj represent 
the corresponding limits of Dj; n^jj must not appear after nm-l ; J^2 must not 
appear after n^^ . 



r-D, 



r-D„ 



rD^ 



'-no 



i-n-, 
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Examples: Nested DO loops 



DO 2 J=l,5 

DO 3 K=2,8 

CONTINUE 

CONTINUE 

DO 4 L=l,3 

CONTINUE 

CONTINUE 



Dl- 
D2- 



D3— I 
n3— ' 

n2 

D4 

n4 

nl 



10 

20 
100 



DO 100 L=2, LIMIT 

DO 10 1=1,10 

DO 10 J=l,10 

CONTINUE 

DO 20 K=K1,K2 

CONTINUE 

CONTINUE 



Dl 

D2 

D3 

n2,n3- 

D4 

n4 

nl 



DO 5 1=1,5 
DO 5 J=I,10 
DO 5 K=J,15 

CONTINUE 



Dl 

D2- 

D3 

nl, 










n2 


,n3— 1 
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6.3.3 

DO LOOP TRANSFER 



In a DO nest, control transfers from one DO loop into a DO loop containing it, 
or out of a DO nest completely. Leaving a nested DO loop and then returning 
to the nest is a special case. la a DO nest, when the range of i includes the 
range of j, and a transfer out of j occurs, control may transfer back into the 
range of i or j . 



In the following diagram , 
of the DO nest. 



EXTR represents a portion of the program outside 



6.4 

CONTINUE 

STATEMENT 




CONTINUE 



Acts as a do-nothing instruction; control passes to the next sequential program 
statement. The CONTINUE statement is frequently used as the last statement 
of a DO loop to provide a loop termuiatlon when a GO TO or IF would normally 
be the last statement of the loop. 



6.5 

PAUSE STATEMENT 



PAUSE 
PAUSE n 



The PAUSE statement transfers control to a system or user-supplied subrou- 
tine; PAUSE n halts the computer with n (1 to 5 octal digits) displayed in the A 
register on the console. When the START key on the console is pressed, pro- 
gram execution proceeds with the statement immediately following PAUSE, 
PAUSE (n omitted) halts the computer with zeros displayed in the A register on 
the console. An n greater than 5 octal digits causes an informative diagnostic. 
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6.6 

STOP STATEMENT STOP 

STOPn 



STOP n halts the computer with n (1 to 5 octal) displayed in the A register on 
the console. When the START key on the console is pressed, control transfers 
to the SCOPE monitor. STOP (n omitted) causes immediate exit to monitor. 
An n greater than 5 octal digits causes an informative diagnostic. 
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FUNCTION AND SUBROUTINE SUBPROGRAMS 



7.1 

MAIN 

PROGRAM AND 
SUBPROGRAMS 



A main program may be written with or without references to subprograms, 
aibprograms (functions and subroutines) are sets of instructions that may be 
written and compiled separately from the main program and may be referred 
to by the main program. 



The name of a function determines the type of the subprogram in the same way 
that names determine types of variables. Names of subroutine subprograms 
are not classified by type. A subroutine or function name must be unique within 
the subprogram. 

A cailir^ program is a main program or subprogram that refers to subroutines 
and functions. 



7.1.1 

PROGRAM 
STATEMENT 



In each main program, the first statement must be of the following form where 
name is a 1- to 8-character alphanumeric identifier beginning with a letter. 



PROGRAM name 

PROGRAM name may be used only once in a main program, segment, or 
overlay. An overlay or segment requires use of PROGRAM name in an entry 
subprogram written in FORTRAN. 



7.2 

SUBROUTINE 

SUBPROGRAMS 



A subixjutine subprogram is composed of a set of FORTRAN statements, 
bounded by a SUBROUTINE statement and an END statement. A subroutine 
subprogram performs operations or calculations that may or may not return 
values to the calling program. 



Subroutine subprograms are compiled independently of the main program and 
may be compiled in a separate run. 
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7.2.1 

SUBROUTINE 
STATEMENT 



A subroutine begins with the statement 



SUBROUTINE name 

or 
SUBROUTINE name (P]^ , P2 , . . . Pq) 

A subroutiae name contains up to eight characters, the first of which is alpha- 
betic. The name must not appear in a declarative statement or within the 
subroutine subprogram. 

A subroutine statement can contain from 1 to 63 formal parameters, p^; they 
may be array names, non-subscripted variables, or names of other function 
or subroutine subprograms. Formal parameters must not appear in any of the 
following declarative statements within the subroutine subprogram: 

EXTERNAL 
COMMON 
DATA 
EQUIVALENCE 

A formal parameter representing an array, must be declared in a DIMENSION 
statement within the subroutine subprogram; otherwise, only the first element 
of the array is available to the subroutine subprogram . 



7.2.2 

CALL STATEMENT 



A reference to a subroutine is a call upon a computational or operational pro- 
cedure. No resultant value is identified or associated with the name of the 
subroutine. The subroutine subprogram returns values, if any, to the main 
program through formal parameters or common. The executable statement in 
the calling program for referring to a subroutine is: 

CALL name 

CALL name (P]^ , ?£ . • • • P^) 

The CALL statement transfers control to the subroutine named. A RETURN 
or END statement in the subroutine subprogram returns control to the calling 
program. A called subroutine may not call the calling program or itself. 

The actual parameters, Pj, of a subroutine call must agree in order, number 
1 to 63, and type with the formal parameters of the subroutine subprogram. 
The following forms are acceptable for actual parameters: 
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arithmetic expression 

constant 

variable, simple or subscripted 

array name 

function reference 

subroutine name 

Logical expressions may not be actual parameters. A function reference, used 
as an actual parameter, must also be used in an EXTERNAL statement in the 
calling program . 

When a subroutine is used with a parameter list, the subroutine name and its 
parameters must appear as separate actual parameters. 

Examples: 



SUBROUTINE ISHTAR (Y,Z) 

COMMON X(IOO) 

2=0 

DO 5 1=1,100 

Z=Z+X(I) 

CALL Y 

RETURN 

END 



Calling Program Reference 



COMMON A (100) 
EXTERNAL PRNTIT 



CALL ISHTAR (PRNTIT, SUM) 



The formal parameters, Y and Z, in the subroutine subprogram, are 
replaced by PRNTIT and SUM. CALL Y is a call to subroutine PRNTIT; 
PRNTIT must appear in an EXTERNAL statement for the compiler to 
recognize it as a subroutine name. 
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2) Subroutine Subprogram (Matrix Multiply) 



I 5 7 



10 



SUBROUTINE MATMULT 

COMMON/DATA/X(20,20) ,Y(20,20) ,Z(20,20) 

D010I=1,20 

D010J=1,20 

Z(I,J)=0 

D010K=1,20 

Z(I,J)=Z(I,J)+X(I,K)*Y(K,J) 

RETUEN 

END 



Calling Program Reference 



5 7 



COMMON/DATA/A (2 0,20), B(20,20), C(20,20) 
CALL MATMULT 



3) Subroutine Subprogram 



SUBROUTINE BLVDLDR (A,B,W) 

H = 2.*B/A 

END 



Calling Program References 



I 5 7 



CALL BLVDLDR (X(I) , Y(I) , W) 

CALL BLVDLDR (X(I)+H/2. ,Y(I)+C(l)/2. ,W) 

CALL BLVDLDR (X(I)+H,Y(I)+C(3) ,Z) 
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7.3 

FUNCTION 

SUBPROGRAMS 



A function subprogram is composed of a set of FORTRAN statements, bounded 
by a FUNCTION statement and an END statement. A function subprogram 
calculates a single value used in evaluating an ejjpression. 

Function subprograms are Independently compiled of the main program and 
may be compiled in a separate run. 



7.3.1 

FUNCTION 
STATEMENT 



A function subprogram begins with the statement: 
FUNCTION name (Pi,P2, • • -Pn) 1- ^— 63 

A function name contains up to eight characters, the first of which is alphabetic. 
The t-vne ^real, inte^'er^ of the result of a function is determined b'*'' the name 
of the function. The type may be implicitly defined as real or integer by its 
name (Section 2.2) or it may be ejgjlicitly defined by a TYPE statement 
(Section 5.1). 

The function name may not appear in any of the following declarative statements: 

DIMENSION 

COMMON 

EQUIVALENCE 

EXTERNAL 

DATA 

A function name must appear at least once within the function subprogram as 
one of the following: 

the lefthand identifier of a replacement statement 

an element of an input list 

an actual parameter of a subprogram call 

Formal parameters, p^, may be array names, non-subscripted variables, and 
names of other function or subroutine subprograms. Within function subpro- 
grams, formal parameters must not appear in any of the following declarative 
statements: 

EXTERNAL 
COMMON 
DATA 
EQUIVALENCE 
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A formal parameter representing an array must be declared In a DIMENSION 
statement within the function subprogram. Otherwise, only the first element 
of the array is available to the function subprogram. 

A function must have at least one parameter. 



7.3.2 

FUNCTION 

REFERENCE A reference to a function is a call upon a computational procedure for the 

return of a single value. The value returned is identified by and associated 
with the function identifier. The form of the function reference is: 

name (pi,P2, . . .Pn) 

A function reference may be used in expressions in the same way as variable 
identifiers; name is the function name. 

The actual parameters, pj, in a function reference must agree in order, number 
(1 to 63), and type with the formal parameters of the function subprogram. 

Rules: 

1. The following forms for actual parameters are permissible: 

arithmetic expression 

constant 

variable, simple or subscripted 

array name 

function reference 

function or subroutine name 

2. Logical expressions are not allowed as actual parameters. 

3. When the name of a function subroutine appears as an actual parame- 
ter, the name must also appear in an EXTERNAL statement in the 
calling program. 
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Examples: 

1) Function Subprogram 



FUNCTION PHI (ALFA,PHI2) 

PHI=PHI2 (ALFA) 

END 



Callii^ Program Reference 



I 5 7 



EXIEENAL SINF 



C=D-PHI(Q(K),SINF) 



From its call in the main program , the formal parameter ALFA is 
replaced by Q(K), and the formal parameter PHI2 is replaced by SINF. 
PHI will be replaced by the sine of Q(K). 

2) Fimction Subprogram 



FUNCTION PSYCHE (A,B,X) 

CALL X 

PSYCHE = A/B*2,(A-B) 

END 



Fimction Subprogram Reference 



5 7 



EXTERNAL EROS 



R=S -PSYCHE (TLIM,ULIM,EROS) 



In the function subprogram, TLIM and ULIM replace A and B. The 
CALL X is a call to a subroutine named EROS. EROS appears in an 
EXTERNAL statement so that the compiler recognizes it as a subroutine 
name rather than a variable identifier. 
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3) Function with Subroutines as Parameters 

The subprograms are defined by statements: 

SUBROUTINE SQIRT(A, B) 
FUNCTION ZEBRAPC, Y, Z, XX) 
SUBROUTINE DONE(R,X, T, U, V) 



I 5 



EXTERNAL SQIRT 

QX=ZEBRA (SQIRT, ARGl, ARG2 , OK) 

CALL DONE(SQIRT,0NE,TW0,C,D) 



ARGl and ONE represent formal parameter A; ARG2 and TWO represent 
formal parameter B of SUBROUTINE SQIRT. 

4) Function subprogram 



FUNCTION AL(W,X,Y,Z) 

CALL W(X,Y,Z) 

AL=Z**4. 

RETURN 

END 



Function Subprogram Reference 



EXTERNAL SUM 



G = AL(SUM, E, V, H) 
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7.4 

EXTERNAL 

STATEMENT 



When a CALL statement or function reference contains the name of a subroutine 
or function in its list of actual parameters, the name must be declared in an 
EXTERNAL statement in the form: 

EXTERNAL namej^, name2, ... name^ 

namej^ is a function or subroutine name used as a parameter. 

The EXTERNAL statement must precede the first executable statement of any 
program in which it appears. 

Example: 

To make a function reference PHI(P2 , P2) in the statement C = D-PHI 
(Q (K), SINE) : Function SINF is an actual parameter of the function PHI 
and must be declared in EXTERNAL statement. 



SXIEEilAL SINF 



PHI, the function originally referenced, begins with the following state- 
ments: 



FUNCTION PHI (ALFA, PHI2) 
PHI=PHI2 (ALFA) 



Formal parameter ALFA takes the value Q(K); formal parameter PHI2 
calls for SINF. Thus, the function subprogram PHI calculates the sine of 
Q(K). 



7.5 

ENTRY STATEMENT 



ENTRY name 

Identifies an alternate entry point in a subprogram to be entered if the name 
of the entry point rather than the normal function name is referenced in a 
statement. ENTRY may not be labeled nor be within a DO loop. 
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7.6 

ENTRY CALL OR 

REFERENCE 



To enter a subprogram at the ENTRY statement, the name of the entry point is 
called (subroutine) or referenced (function) in the same way as a subroutine or 
function. 



ENTRY names must agree with the type of the function name when used in a 
function subprogram. 

The actual parameters with the ENTRY statement must agree in type and mode 
with the formal parameters in the FUNCTION or SUBROUTINE statement for 
the subprogram. 



Example: 



I 5 7 



45 R=S+JAM(Q,2.*P) 



Subprogram execution would begin at ENTRY JAM in the subprogram. 



1 5 


7 




FUNCTION JOE(X,Y) 


10 


JOE=X+Y 




RETURN 




ENTRY JAM 




IF... 




END 
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7.7 
STATEMENT 



RETURN 



A subprogram normally contains one or more RETURN statements to indicate 
the end of logic flow within the subprogram and return control to the calling 
program. 

In function references , control returns to the statement containing the function. 
In subroutine subprograms, control, in most cases, returns to the calling 
program. A RETURN statement in the main program causes an exit to the 
monitor. 



7.8 

END STATEMENT 



END 



rne END statement marJss tne pnysicai end ot a program , suDroutine subpro- 
gram, or function subprogram. If the RETURN statement is omitted from a 
subprogram, END acts as a return to the calling program or function reference. 



7.9 

PROGRAM 

ARRANGEMENT 



FORTRAN compilation assumes that all statements and comments inserted 
between a PROGRAM, SUBROUTINE, or FUNCTION statement and an END 
statement belong to one program. Comments inserted between END and a 
SUBROUTINE or FUNCTION statement are associated with the preceding 
program. A blank card is required between subprograms and a FINIS card 
follows the last subprogram. 
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Example: 



PROGRAM SOMTHING 

END 

<blank card> 

SUBROUTINE SI 



END 

-^blank card> 
SUBROUTINE S2 



-=blank card> 
FUNCTION Fl(...) 



END,, , 
< blank card > 

FUNCTION F2 ( . . . ) 



END 



Main Program 



Subprogram 



Subprogram 



Subprogram 



Subprogram 



FINIS 
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LIBRARY SUBPROGRAMS 



8 



8.1 

SUBROUTINE 

LIBRARY 



The FORTRAN library of subroutine subprograms includes: 
Subroutine Definition 



SLITE (i) 
SLITET (i,j) 
SSWTCH (i, j) 
DVCHK (i) 
EXFLT (i) 
OVERFL (i) 
EOFCK (i,i) 
lOCHK (i,j) 
UNITST (ij) 
OVERLAY (o, s, 1) 
SEGMENT (o, s, i) 
FORTDUMP (b,e,m,d) 



set sense light i 

test sense light i 

test sense switch i 

check divide fault 

check exponent fault 

check overflow fault 

test for end-of-file on unit i 

test for parity error on unit i 

test status of unit i 

load and execute overlay 

load and execute segment 

system dump routine 



Parameter i specifies the unit or component number and j specifies the location 
of the resiilt. See Chapter 9, Machine Condition Subprograms. For Overlay 
and Segment, o specifies the overlay identification, and s the segment. 



8.2 

FUNCTION LIBRARY The following FORTRAN library functions are pre-defined and may be refer- 
enced by any program or subprogram. X represents real values; I represents 
integer values. F is optional as a final character in most function names. 
For machine conditions, i designates the component or unit number. 
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Function 



Definition 



ABSPC); ABSF(X) 

IABS(I);XABSF(I) 

ALOG(X); LOGFPQ 

ATAN(X); ATANFPQ 

COSpC) ; COSF(X) 

EXPPC); EXPF(X) 

FLOAT(I); FLOATF(I) 

IFKCS); XF]XF(X); FIXF(X) 

SIGNpCi, X2); SIGNF(Xi, X2) 

ISIGN(Ii , I2) ; XSIGNF(Ii , I2) 

SIN (X) ; SINF(X) 

SQRT (X) ; SQRTF (X) 

SLITEF (i) 

SLITETF (i) 

SSWTCHF (i) 

DVCHKF (i) 

EXFLTF (i) 

OVERFLF (i) 

EOFCKF (i) 

lOCHKF (1) 

UNITSTF (i) 

LENGTHF (i) 



absolute value 

natural log of X 

arctangent of X radians 

cosine of X radians 

e to xtli power 

integer to real conversion 

real to integer conversion 

sign of X2 times Xi 

sign of I2 times Ii 

sine of X radians 

square root of X 

set sense light 1 

test sense l:^ht i 

test sense switch i 

check divide fault 

check exponent fault 

check overflow fault 

test for end-of-file on unit i 

test for parity error on unit i 

test status of unit i 

words in last BUFFER IN on unit i 



NOT (a) 
AND (a,b) 
OR (a, b) 
EOR (a,b) 



integer masking functions 



The functions XABSF, LOGF, FKF and XSIGNF must appear in a TYPE 
declaration to indicate the correct mode of the result. 
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8.3 

OVERLAY AND 

SEGMENT 



With the library subroutines OVERLAY and SEGMENT, a FORTRAN source 
program can call from an overlay tape portions of a program too large for 
available storage. OVERLAY and SEGMENT do not partition a program or 
prepare an overlay tape. Each subprogram loads the called overlay or segment 
into storage and transfers control to the entry point address. 

For preparation of overlay tapes, refer to the 3200 SCOPE/COMPASS Refer- 
ence Manual, Publication No. 60057700. 

The overlay structure consists of a MAIN program and associated overlays 
and segments. The MAIN program can call OVERLAY to load a particular 
overlay; the overlay can call SEGMENT to load its associated segments. The 
main program resides in memory throughout the entire execution. 

A segment may reference subprograms (entry points) in its associated overlay 
or main program. An overlay may reference subprograms (entry points) in 

When an error occurs during calling or loading overlays and segments, a 
diagnostic message is written and the job terminates abnormally. 

FORTRAN source subprograms use the followii^ call statement to load and 
execute overlays and segments: 

CALL OVERLAY (o, s, i) 

or 
CALL SEGMENT (o,s,i) 

o, s, and i are integer constants or variables. All must be present. 
Their order is fixed, o and s may be through 99. 

o overlay identification number for overlay and its segments 
s segment identification number; s = for CALL OVERLAY 
i number of the logical unit on which overlay tape is moimted 

An overlay or segment is entered and left through a return jiimp instruction. 
Other exits may be taken to the calling program or main program but bookkeep- 
ing in the loader prevents loadtag of a new overlay or segment until an exit is 
made through the entry point of the overlay or segment. Therefore, an alter- 
native exit from an overlay or segment should be a CALL name statement 
(FORTRAN) or a return jump (COMPASS) - either of which returns control to 
the calling segment or overlay. The called subprogram, if called by an over- 
lay may not call an overlay; if called by a segment, it may not call a segment. 
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CALL OVERLAY appears only in the main program. In an overlay, CALL 
SEGMENT calls segments belonging to the overlay. In the main program, use 
of CALL SEGMENT applies only in the special case in which an overlay has 
called the main program. Execution may then proceed from main program to 
overlay to segment. The segment called from the main program must belong 
to the overlay that called the main program. 



Example: 
1) 



Main Program 



PROGRAM MAIN 



CALL OVERLAY (3,0,25) 



FORTRAN OVERLAY 3 on Logical Unit 25 



PROGRAM OVRLY 

CALL SEGMENT (3,16,25) 

CALL SEGMENT (3,12,25) 

RETURN 



Program MAIN calls OVRLY (Overlay 3 of logical unit 25). OVERLAY 
loads OVRLY and transfers control to it. In OVRLY are calls for segments 
of Overlay 3. Segment 16 is called, loaded and executed. Not until after 
it returns control to OVRLY can Segment 12 be called, loaded and executed. 
When execution of OVRLY is completed, control returns to program MAIN. 
Until OVRLY returns control to MAIN, a second overlay cannot be called. 
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2) Special case in which main program can properly call a segment. 

MAIN PKOGEAM 

I 5 7 



PROGRAM MAIN 

CALL OVERLAY (3,0,25) 

SUBROUTINE PLUS (A,X,K) 

CALL SEGMENT (3,4,25) 
RETURN 



FORTRAN OVERLAY 3 on Logical Unit 25 



PROGRAM OVRLY 

call' PLUS (ALPHAI, BABYI, LINKI) 

CALL SEGMENT (3,16,25) 

RETURN 



Program MAIN calls OVRLY which is loaded and executed. In OVRLY is 
a call to PLUS, a subprogram of MAIN, (Overlays and segments can 
reference entry points of the main program. ) Because it was called by 
Overlay 3, PLUS can call any segments of Overlay 3. In this example, 
PLUS calls Segment 4 of Overlay 3. After Segment 4 is executed, control 
returns to PLUS which may then call another segment or return control to 
OVERLAY 3 (OVRLY). OVRLY, when it resumes control may call seg- 
ments of Overlay 3, subprograms, or may return control to MAIN. When 
MAIN resumes control, it may call another overlay. 
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3) A segment incorrectly attempting to call another segment. 

In example 2, OVRLY called Segment 16 of Overlay 3. Segment 16 cannot 
appear as shown below: 

FORTRAN SEGMENT 16 of OVERLAY 3 



PROGRAM SGMNT 

CALL PLUS (ALPHA, BABY, LINK) 

aETURN 



In SGMNT is a call to subprogram PLUS. In PLUS, the call for Segment 4 
of Overlay 3 cannot be honored because a segment is calling another seg- 
ment. A diagnostic occurs. 



8.4 

FORTRAN DUMP 



The FORTDUMP subroutine permits a programmer to request a printout of the 
contents of variables in octal, character, or decimal floating point. 

Each time it is called, the routine prints, on the standard output unit, a line 
containing (1) dump identification, (2) the COMPASS address of the calling 
sequence, and (3) contents of the A and Q registers, the three index registers, 
and the interrupt mask register. When the register file option is elected, 
FORTDUMP prints REGISTER FILE followed by the contents of all 64 high- 
speed registers. 

The memory dump consists of 8-word lines of data printed in the designated 
mode and preceded by the absolute octal address of the first word on the line. 
When FORTDUMP detects a line that contains words all identical to the last 
word of the preceding line, the line is suppressed. The suppressed line or 
lines are noted with the word GAP on the listing. 

To call FORTDUMP, use the statement 

CALL FORTDUMP(b,e,m,d) 

b = simple or subscripted variable identifier of first word to be dumped 

e = simple or subscripted variable identifier of last word to be dumped 

m = mode; an octal constant or a variable identifier for location of the octal 
constant 
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Octal Constant 



Mode 



Octal 

Character 

Floating point 

Register file 

Octal; register file 

Character; register file 

Floating point; register file 



d = Hollerith or octal (internal BCD) constant, or the variable identifier 
giving the location of 4 BCD characters that identify the dump 

Rules: 

1. To prevent excessive printout, avoid calling FORTDUMP within a loop. 

2. A first word address (b) greater than the last word address (e) pro- 
duces a diagnostic message on the printout. 

3. When character or octal modes are used for type REAL variables, 
only the upper half of the last word will be printed. 

4. Floating point mode for REAL variables converts two words of memory 
at a time to decimal output in the form 

-. xxxxxxxxxx-eee 



Examples: 
1) 



MODE = 1 

IDENT = 3HK+1 

CALL FORTDUMP (MATRIX, MATRIX(16) , MODE, IDENT) 



MATRK 


contains 41 


MATRlX+1 


" 42 


MATEIX+2 


43 


MATRIK+3 


44 


MATRIX+4 


45 


MATRK+S 


46 



MATRIX+6 contains 47 
MATRIX+7 " 

MATRIX+8 " 



MATRIX+15 
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Result: 

K+1 LOG 77625 A 42200160 Q 00000000 Bl 00000 B2 77562 B3 00144 IMR 0017 

OCTAL MEMORY 

77324 00000051 00000052 00000053 00000054 00000055 00000056 00000057 00000000 

GAP 

*END* 



2) 



I 5 



COMMON (A,B,C,D) 

CALL FORTDUMP (A,D,7 ,4HK+12) 



A contains -6.75432 
B " 354.0000 

C " .01 

D " 6.754 El 



Result: 

K+12 LOG 77663 A 42017600 Q 00000023 Bl 06734 B2 00144 B3 00000 IMR 2020 

REGISTER FILE 

00000 xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx 



00070 xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx 

FLOATING POINT MEMORY 

77470 -.6754320000 001 .3540000000 003 .1000000000-001 .6754000000 002 

*END* 
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8.5 

MACHINE 
CONDITION 
SUBPROGRAMS 



Library functions and subroutines exist in FORTRAN that will test and modify 
sense lights, switches, and fault conditions. Most machine conditions may be 
tested or modified by either a subroutine or a function subprogram. The two 
methods differ primarily in the way a resulting value (if any) is stored for use 
by the program. The parameters must be of type integer. A subroutine is 
referenced with a CALL statement: 



CALL SSWTCH (I, J) 



A function is referenced the same as other library functions. 



GO TO (10, 20) SSWrCHF(I) 



Each function reference has at least one parameter even though it is not always 
used; DVCHKF, EXFLTF, and OVERFLF do not use input parameters. 



8.5.1 

SENSE LIGHT 
CONTROL 



subroutine SLITE (i) 
function SLITE F (i) 

For i equals 1 through 24, either subprogram turns on sense light i. For i 
equals zero, the subprogram turns off all sense lights. For i other than 
through 24, the subprogram provides a diagnostic. Neither subprogram re- 
turns results to the caller. 



8.5.2 

SENSE LIGHT TEST 



subroutine SLITET (i,j) 
function SLITETF (i) 

For i equals 1 through 24, either subprogram tests sense light i. If sense 
light i is on, the subroutine or function turns it off. The subroutine then stores 
a one in variable j ; the function returns a one (in the A register) to the refer- 
encing statement. If sense light i is off, a two is stored or returned. 

For i other than 1 through 24, the subprogram provides a diagnostic. 
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8.5.3 

SENSE SWITCH TEST 



subroutine SSWTCH (i,j) 
function SSWTCHF (i) 

i may be 1 through 6 representing one of the 6 console sense switches. Either 
subprogram tests sense switch i. If sense switch i is on, the subroutine stores 
a one in variable j; the function returns a one (in the A register) to the refer- 
encing statement. If sense switch i is off , a two is stored or returned. 

If i is other than 1 through 6, the subprogram provides a diagnostic. 



8.5.4 

DIVIDE FAULT CHECK 



subroutine DVCHK (j) 
function DVCHKF (i) 

Either subprogram tests and turns off the divide fault iadicator. If the indicator 
is on, the subroutine stores a one in variable j; the function returns a one (in 
the A register) to the referencing statement. If the indicator is already off, a 
two is stored or returned. (The i tn the function reference is a dummy para- 
meter that is required but not used. ) 



8.5.5 

EXPONENT FAULT 
TEST 



subroutine EXFLT (j) 
function EXFLTF (i) 

Either subprogram tests and turns off the exponent fault indicator. If the 
indicator is on, the subroutine stores a one in variable j; the function returns 
a one (in the A register) to the referencing statement. If the indicator is 
already off, a two is stored or returned. (The i in the function reference is a 
dummy parameter that is required but not used. ) 



8.5.6 

OVERFLOW TEST 



subroutine OVERFL (j) 
function OVERFLF (i) 

Either subprogram tests and turns off the overflow indicator. IE the indicator 
is on, the subroutine stores a one in variable j; the function returns a one (tn 
the A register) to the referencing statement. If the indicator is already off, 
a two is stored or returned. (The i in the function reference is a dummy 
parameter that is required but not used. ) 
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INPUT/OUTPUT FORMAT SPECIFICATIONS 



Data transmission and conversion between storage and external imits require 
format lists and I/O control statements (Chapter 10). The l/O statements 
specify the input/output device and process, and list the data to be moved. For 
binary information, no format list is required. Format lists are provided in 
FORMAT statements or ta specially prepared variable arrays. 



9.1 

I/O LIST The list portion of an l/O control statement indicates the data elements and the 

order of transmission from left to right. Elements are simple variables or 
array names (subscripted or non-subscripted). All variables ui the list must 
be standard types. A tjrpe other variable produces a compiler dia^ostlc. 
List elements are separated by commas; their order must correspond to the 
order of the format list. 

Examples: 

A, B, H(I), Q(3,4) ((BUZ(K,2*L), K=l,5), L=l,13,2) 

SPECS Q(3), Z(2,2), (TUP(3*I-4), 1=2,10) 

A, DELTAX(J+1) (BAZ(K), K=l, LIMl, LIM2) 



9.1.1 

DO-IMPLYING 

SEGMENTS A DO-lmplying segment consists of one or more list elements and indexing 

values. Dimensioned arrays may appear in the list with values specified for 

the range of the subscripts in an implied DO loop. 

The general form for a DO-unplying segment is: 

(...((list, 7j=m-|^,m2,m3), 72=n-|^,n2,n3), . . . , Tj=zz-|^,zz2,zz3) 

mjj, njj, . . . zz]j are imsigned integer constants or predefined positive 
integer variables. When the third indexing parame- 
ter (mq, ng , . . . zzq) is omitted, a one is used for 
incrementing. 

7 i are index variables. 
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A list element may be a simple variable, a dimensioned variable, or an 
array name. 

The first index variable (fj) defined in the list is incremented first. Data 
named in the implied DO loops is transmitted by increments of m3 until mg is 
exceeded. (When m3 is omitted, the increment value is 1. ) When the first 
index variable reaches mg, it is reset; the next index variable to the right (7^) 
is then incremented and the process is repeated untU the last index variable 
(tj) has been incremented. 

The general form for arrays is: 

(((A(I,J,K), -)'i=mi,m2,m3), T2=ni = ii2'ii3)' T3=P1'P2'P3) 

I, J, K are subscripts of A and must be of the standard form. 

'''l' ''2' '''3 '^^y represent I, J, K. ""iJ^ "^2^ ^3 
A DO-implying segment for an array may replace a nest of DO loops of the form: 



10 



DO 10 y3=P]^, P2> P3 
DO 10 72=^1 , "2' "3 
DO 10 7-^=^-^, ^2' ^3 



Transmit list elements 



CONTINUE 



An implied DO loop may also be used to transmit a simple variable, a sequence 
of variables, or an array a number of times. In the segment (A, K=l, 10) A 
will be transmitted 10 times. 

The limit to which implied DO loops may be nested is determiaed by the length 
of the statement. 
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Examples : 

1) Example of a DO-lmplying segment nested 5 deep: 

(((((A(I,J,K), B(M), C(N), N=l,10,l), M=l,5), K=KK(1), KK(2), KK(3)), 
J=l,60,15), 1=1,10,1) 

During execution each subscript (index variable) is set to the initial index 
value: 1=1, J=l, K=KK(1), M=l, N=l. The segment replaces a DO 
loop nest of the form : 



15 



DO 15 J=l,60,15 

DO 15 K=KK(1), KK(2), KK(3) 

DO 15 M=l,5 

DO 15 N=l,10,l 

Transmit A(I,J,K), B(M), C(N) 

CONTINUE 



2) Elements of A, a 3 by 3 matrix, will be transmitted by columns using: 
((A(I,J), 1=1,3), J=l,3) 

3) Elements of A will be transmitted by rows using: 
((A(I,J), J=l,3), 1=1,3) 

4) In the list segment (B(J), L, (A(I, L), 1=1, L), J=3,9,3), L must have a 
value before it can be used as an index variable. The segment replaces a 
DO loop nest of the form : 



DO 11 J=3,9,3 
Transmit B(J) and L 
DO 11 1=1, L 
Transmit A(I,L) 
11 CONTINUE 

5) CAT, DOG, and RAT will each be transmitted 10 times with the segment 
(CAT, DOG, RAT, 1=1,10) 
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9.1.2 

TRANSMISSION 
OF ARRAYS 



In an l/O list, an array name without subscripts causes the entire array to be 
transmitted. 

Examples: 



1 5 7 



DIMENSION SPECS (7, 5, 3) 



Transmit SPECS 



trajismits the array SPECS as if under control of the nested DO loops 



1 5 


7 


10 


DO 10 K=l,3 
DO 10 J=l,5 
DO 10 1=1,7 
Transmit SPECS (I,J,K) 

CONTINUE 



or as if under control of an implied DO loop 

...,((SPECS(I,J,K),I=1,7), J=l,5), K=l,3),, 



9.2 

FORMAT 

STATEMENT 



The binary coded decimal (BCD) I/O control statements require a format list 
for internal/ external conversion of the I/O list elements. The list is usually 
given with a FORMAT statement: 

FORMAT (spec^ , . . . k^(speCjjj ,...), kySpecQ, . . . ) 

specj are format specifications. The repetition factors kj must be un- 
signed integer constants. When k is outside the parenthesis, the specifi- 
cations within are all repeated k times. (Section 9. 5) 

The FORMAT statement is nonexecutable and can appear anywhere in the 
program. The word FORMAT is reserved and cannot be used as an identifier. 
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9.3 

CONVERSION 

SPECIFICATIONS 



Data elements in l/O lists are converted according to format lists that contain 
conversion specifications and editing codes. 

FORTRAN conversion specifications: 

Ew. d Single precision floatii^ point with ejcponent 

Fw. d Single precision floating point without ejqponent 

Iw Decimal integer conversion 

Ow Octal integer conversion 

Aw Alphanumeric conversion (left justification with blank fUl) 

Rw Alphanumeric conversion (right justification with zero fill) 

FORTRAN editing codes: 

wX Intra-line spacing 
wH Heading and labeling 
/ Begin new record 

Both w and d are imsigned integer constants, w specifies the field width, the 
number of character positions in the record; d specifies the number of digits 
to the right of the decimal point within the field. 



9.3.1 

Ew.d OUTPUT 



The Ew. d specification converts floating point numbers in storage to the BCD 
character form for output. The field occupies w positions in the output record; 
the corresponding rounded floating point number appears right justified in the 
field as 

± a. a.. . QjE Aee when |ee| < 99 

A a. a... aEeee when 99 < eee < 308 

A a.cx... a-eee when -308 < eee < -99 

a. a., .a are the most significant digits of the integer and fractional part; eee 
are the digits in the exponent. If d is zero or blank, the decimal point and 
digits to the r^ht of the decimal do not appear. The fractional part contains 
a maximum of 11 digits. Field w must be wide enough to contain the integer 
portion, signs, decimal point, E and the exponent. 
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When the field is not wide enough to contain the output value, digits are dropped 
from the right of the fraction and the fraction sign may be lost. An asterisk is 
inserted immediately before exponent designator E if the negative sign is lost. 
A w field width less than 5 causes a format error. If the field is longer than 
the output value, the quantity is right justified with blanks in the excess posi- 
tions to the left. For negative exponents that occupy 3 digits, E is suppressed. 

Examples (TAPE! and OUT are integer variables) : 

1) Proper use of Ew.d specification 

RIGHT 

I 41? 



10 



ffilTE (TAPEl, 10) A 
FORMAT (E10.3) 



A contains -67. 32 or +67. 32 
Result: -6. 732Ea01 or /^6. 732E/^01 

2) Minus sign not provided for 
W RONG 

d 7 



10 



WRITE (TAPEl, 10) A 
FORMAT (E8.3) 



A contains +67.32 or -67.32 
Result: 6.73Ea01 or 6.7*Ea01 

3) w is larger than required 



25 



WRITE (OUT, 25) A 
FORMAT (E14.4) 



A contains 412.679 
Result: /vvv\ 4. 1268Ea02 

4) E suppressed 



16 



WRITE (OUT, 16) X 
FORMAT (El 1.4) 



X contains 4. 12673 x 10 
Result: a*. 1267-200 



-200 
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9.3.2 

Ew.d INPUT 



The Ev/. d inpit specification converts the number in the input field to real and 
stores it in the appropriate location in memory. 

w specifies the total number of characters in the input field. In the left-to- 
r^ht scanning process, blanks in the field are interpreted as zeros. 

The subfields for an input value may include iateger, fraction, and exponent in 
the forms: 



n.mEsss 


n.m sss 




n.m 


.m sss 




.mEsss 






n 






.m 






Esss 






Subfield structure of the input field: 






input 


field 



+ 
digit 




+ 

- sss 

E 



integer 



' Hfam* 



fraction 
decimal point 



exponent 



For an integer (n) input value with no decimal point indicated, the E conversion 
specification scales the value. 

An integer subfield begins with a sign (+ or -) or a digit followed by a string of 
digits and ends with a decimal point, E, sign, or end of w. 

A fraction subfield begins with the decimal point, Includes a string of digits, 
and ends with a sign, E, or the end of w. 

An exponent subfield may begin with E or a sign. When it begins with E , the 
sign may appear between E and the digits in the exponent. The digits in the 
exponent must be less than or equal to 308; the entire input quantity must be in 
the range of ± 10^*^^. 

When no decimal point is present, d in the Ew. d specification is a negative 
power factor of ten. The intem'al representation of the input quantity becomes: 

(integer subfield) x 10"" x loCexPO'^^^* subfield) 
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For example, if the specification is E7. 8, the input quantity 3267+05 is con- 
verted and stored as 3267x10-8x1 0^ = 3.267. 

When E conversion is specified, and a decimal point occurs in the input constant, 
the decimal point overrides d. The taput quantity 3. 67294+5 may be read by any 
specification allotting necessary field length but will always be stored as 
3. 67294x1 0^. 

When d does not appear it is assumed to be zero. 

w field length must be the same as the length of the input field. When w is too 
long, incorrect numbers may be read, converted, and stored as shown below. 
When w is too short, a portion of the input field may be left unread. The w 
field includes significant digits (maximum of 11), signs, decimal point, E, and 
exponent. 

Example: 

INPUT CARD 



+6. 47E-01-2. 36+5. 321E+02 



10- 



INCORRECT SPECIFICATION 



20 



READ 20, A,B,C 



FORMAT (E9.3, E7.2, E10.3) 



Reading proceeds as follows: 



9 - 


^7 — 


" 10 — ► 


+6.47E-01 


-2.36+5 


.321E+02AA 


+6.47E-01 


-2.36+5 


. 321E+02AA 


4«.47E-01 


-2.36+5 


.321E+02AA 



First, +6. 47E-01 is read, converted, and placed in location A. 

Next, -2.36+5 is read, converted, and placed in location B. The number 
desired was -2. 36 but the specification error (E7. 2 instead of E5. 2) 
caused the two extra characters to be read. The number read (-2. 36+5) 
is legitimate under the definitions and restrictions. 
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Finally, .321E+0200 is read, converted, and placed in location C. Here 
again, the input number is legitimate although it Is not the number desired. 

In this example, numbers are incorrectly read, converted, and stored, yet 
there is no immediate indication that an error has occurred. 



Examples: 








Ew.d Input 


Converted 


Input Field 


Specification 


Value 


+143. 26E-03 


Ell. 2 


. 14326 


-12.437629E+1 


E13.6 


rl24. 37629 


8936E+004 


E9.10 


. 008936 


327.625 


E7.3 


327.625 


4.376 


E5 


4.376 


-.0003627+5 


Ell. 7 


-36.27 


-. 0003627E5 


Ell. 7 


-36.27 


lEl 


E3.0 


10. 


E+06 


E10.6 


0. 



l.E 1 



E6.3 



10. 



Remarks 

Subfields all present 
Subfields all present 

Input number converted as 

8936x10-10+4 

No exponent subfield 

No d in specification 

Integer subfield contains 
only minus 

Integer subfield contains 
only minus 

Input number converted as 
l.xlOl 

No integer or fraction sub- 
field. Zero stored regard- 
less of exponent 

Blanks interpreted as zeros 



9.3.3 

Fw.d OUTPUT 



The Fw. d specification converts floating point numbers in storage to BCD 
form for output. The field occupies w positions in the output record; the cor- 
responding list element must be a floating point quantity that is converted and 
rounded to a decimal number, right justified in the w field, as: 



A i. 



• 5 • 5 • ' 



i represents the most significant digits of the number (maximum 11). The 
number of decimal places to the right of the decimal is specified by d. If d is 
zero or omitted, the decimal point and digits to the right do not appear. If the 
number is positive, the + sign is suppressed. 
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If the field is too short to accommodate the number, high-order digits are 
discarded from the left, the sign is suppressed, and an asterisk appears in the 
rightmost character position to indicate the deletion. 

If the field w is longer than required to accommodate the number, it is right 
justified with blanks occupying the excess field positions to the left. 

Examples (TAPEl and OUT are integer variables) : 

1) Proper Specification 

5 



10 



;JRITE (TAPEl, 10) A 
FORMAT (F10.5) 



A contains +123.45678 or -123.45678 
Result: /423. 45678 or -123.45678 

2) w too small to accommodate integer portion 

I si |7 



10 



iJRITE (TAPEl, 10) A 
FORMAT (F8.5) 



A contains +123.45678 
Result: 23.4567^ 

3) w too small to accommodate sign 

I 5 7 



12 



iJRITE (42, 12) A 
FORMAT (F6.3) 



A contains -67.460 
Result: 67.46* 

4) w larger than required 



25 



WRITE (OUT, 25)A 
FORMAT (F10.3) 



A contains 412.6727 
Result: /\/^a412. 673 
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9.3.4 

Fw.d INPUT The Fw. d specification converts a number in an input field (specified by w) to 

real and stores it in memory. The input field consists of an integer and a 
fraction subfield. An omitted subfield is assumed to be zero. 

Permissible subfield combinations are: 

Integer fraction 
Integer by itself 
Fraction by itself 

An integer subfield begins with a digit, + or -; blanks ia the field are interpreted 
as zeros. The integer field is terminated by a period, or by the end of the input 
field. 

A fraction subfield begins with a decimal point; it is terminated by the end of 
the Input field. 

In the Fw.d specification, d acts as a negative power factor of ten when the 
fraction subfield is not present. The internal representation is: (integer sub- 
field) X 10~". For example, the specification F4. 4 causes the input quantity 
3267 to be converted and stored as 3267 x 10"^ = . 3267. 

A decimal point in the input quantity causes d to be ignored. For example, 
3. 6789 may be read under any F6.d specification but will always be stored as 
3.6789. 

When d does not appear it is assumed to be zero. For example, the iaput 
quantity +14. 62 is read into memory as 14. 62 by the specification F6. 

The maximum number of significant digits that may appear in the combined 
integer-fraction field is 11. Excess digits are discarded from the right during 
the conversion process. 

The field length specified by w in Fw. d should always be the same as the actual 
length of the iaput field containing the input number. When it is too long, 
incorrect numbers may be read, converted and stored. When it is too short, 
significant digits may be lost. 
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Examples: 








Fw. d Input 


Converted 


Input Field 


Specification 


Value 


367.2593 


F8.4 


367.2593 


37925 


F5.7 


. 0037925 


-4.7366 


F7 


-4.7366 


. 62543 


F6.5 


. 62543 


. 62543 


F6.d 


. 62543 


+144. 15E-03 


F11.2 


. 14415 



Remarks 

Integer and fraction field 

No fraction subfield. Input 
number converted as 37925 
X 10"'^ 

No d ia specification 

No integer subfield 

Decimal point overrides d 
of specification 

Exponents are legitimate In 
F input 



9.3.5 

iw OUTPUT 



The Iw specification converts decimal integer values in the output list to BCD 
character form for output. The output quantity occupies w output record posi- 
tions; it will appear right justified in the field w, as: 

a j represent decimal digits (maximum 7) of the integer. When the integer is 
positive the + sign is suppressed. 

When the field w is larger than required, the output quantity is right justified 
with blanks occupying excess positions to the left. When the field is too short, 
characters are discarded from the left; an asterisk inserted at the right indi- 
cates deletion. 
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Example: 



10 



WRITE (Kl, 10) J,K,L 
FOEEAT (18, 110, 15) 



J contains -3762 
K contains +4762937 
L contains +13 



Result: aaa-376^/v\4762937/w\'-3 
— 10 T-5^ 



9.3.6 

Iw INPUT 



The Iw input specification converts the input field to a decimal integer. The 
field is w characters in length and the corresponding list element must be a 
decimal integer quantity. 

Input field w consists of an integer subfield that contains only a plus or minus, 
through 9, or blank, interpreted as zero. When a sign appears, it must pre- 
cede the first digit in the field. The value is stored right-justified in the 
specified variable. 




15_18^7^3^1^4 



I ""AA ^"AA "/V\'A"/\^A^ 

i-sl— 7— ^ 2K3-J 2 1-4^ 



10 



READ (K3, 10) I,J,K,L,M,N 
FORMAT (13,17,12,13,12,14) 



: I 


contains 139 


L 


contains 7 


J 


-1500 


M 


3 


K 


18 


N 


" 104 
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9.3.7 

Ow OUTPUT 



The Ow output specification converts Internal binary to BCD octal integers. 
The output quantity occupies w output record positions and appears as: 



Sj represent octal digits (maximum 8 for types integer and character, 16 for 
type real). No sign appears; a negative octal number is represented as it 
appears in storage in one's complement form. If w is greater than required, the 
number is right justified. If w is too small, the rightmost octal digits in. stor- 
age occupy the output field; the left portion of the word is lost. 

Example: 



12 



WRITE (Kl, 12) I,J,K,A 
FORMAT (03,08,04,018) 



I contains 00000144g 
J " 000024508 

K " 000000448 



= 100 



10 



= 1320iQ 



36 



10 



A " 2012452275000000 = 1124. 5728 = 596. 739]^q 

Result: 144aaaa2450aa44aa2012452275000000 



9.3.8 

Ow INPUT 



The Ow input specification provides a method of entering octal quantities into 
storage. The input field w has a maximum of 8 octal digits for character or 
integer and 16 for real. The string of octal digits may be preceded by a sign; 
a negative sign causes the one's complement of the quantity to be stored. 
Blanks in the field are interpreted as zeros. Only octal digits (0-7) may 
appear. 
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Example: 

Input Card 



37373737-44 /y\201245227500000066441/\444036 



— ^s-t*- 



18 



■12 



10 



READ (Kl, 10) K,L,P,M 
FORMAT (08,03,018,012) 



Result: K 
L 
P 



contains 37373737 

" 77777733 
" 20124522 
" 10444036 



(complement form) 
75000000 

ir^ f* A A 1 -I.V 

(OD'i'i iUBL) 



9.3.9 

Aw OUTPUT 



With the Aw output specification internal BCD (Appendix A) is converted to 
external alphanumeric characters. 



oLx represent alphanumeric characters. Maximum is 4 characters for types 
integer; 8 for type real. When w is larger than required, the character string 
is right justified with blank fill to the left. When the field is too small, the 
leftmost characters appear in the output field; any other characters are lost. 

Example: 



14 



INTEGER A,B,C 
WRITE(K5,14) A,B,C,R,Q 
FORMAT (2A4, A3, A4, 2A8) 



A contains 66302545 = WHEN 

B " 60314560 =AmA 

C " 63662560 = THEa 

R " 6346245122656046 = COURSEaO 

Q " 5301061105330710 = $1695.78 
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Result: 



WHENaINaTHECOUR$1695. 78 

J. 



w too small; 
^lost 



w too small; 
SEaO lost 



9.3.10 

Aw INPUT 



The Aw input specification accepts up to four 6-bit characters for types integer 
and character variables, and eight 6-bit characters for type real variables. A 
blank in the input field is converted to the 6-bit equivalent BCD code for blanks 
(60). If w exceeds the allowed number of characters (4 or 8), only the right- 
most characters are stored in the variable defined in the I/O list. If w is less 
than the allowed number, the characters in the input field are stored left 
justified in the variable with blank fill to the right. 

Example: 



Input Card 



VvTIEN/^INaTHE C0URSE$1695. 78 




10 



INTEGER A,B,C 

READ (K4,10) A,B,C,R,Q 

FORMAT (2A4,A3,A6,A8) 



-incorrect specification 



Result: 

A contains 66302545 
B " 60314560 
C " 63662560 
R " 64516225 
Q " 5301061105330710 



WHEN 

aINa 

THEa (left justified with blank fill) 

URSE (CO lost) 

$1695.78 
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9.3.11 

Rw OUTPUT 



The Rw output specification is similar to the Aw specification for converting 
internal BCD words (Appendix A) to external alphanumeric characters. The w 
output field is: 



oj represent alphanumeric characters (Maximum is 4 characters for types 
integer; 8 characters for type real. ) When w is larger than required to repre- 
sent the characters, the character string is right justified with zero fill at the 
left. When the field is too small, the rightmost characters appear in the output 
field; any other characters are lost. 

Example: 



14 



INTEGER A,B,C 

T.TT, TrPT7 fV C 1 /. \ A T>y-irt/-\ 

FORMAT (2R5,R3, R4, R8) 



A contains 66302545 = WHEN 

B " 60314560 = aIN a 

C " 63662560 = THEa 

R " 6346245122656046 = COURSEa O 

Q " 5301061105330710 = $1695.78 



Result: 



w too 
zero fill 



— 5^4^5-4*3*1-4-4*— 8 — » 
0WHEN0;^lN;\HE;\SEy\O$1695. 78 

large v^ ^ 



w too small; 

T lost; COUR lost 
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9.3.12 

Rw INPUT 



The Rw input specification, like the Aw specification, accepts up to four 6-bit 
characters for types integer and character variables and eight 6-bit characters 
for type real variables. A blank in the input field is converted to the 6 -bit 
equivalent BCD code for blanks (60). If w exceeds the allowed number of 
characters (4 or 8) only the rightmost characters are stored in the variable 
defined in the I/O list. If w is less than the allowed number, the characters in 
the input field are stored right justified with zero fill at the left. 



Example: 



Input Card 



WHEN/\INaTHECOURSE$1695. 78 
L_4-J-4--U3-|.. — 6 -»"< — 8— J 



10 



INTEGER A,B,C 

READ (K4,I0) A,B,C,K,q 

FORMAT (2R4,R3,R6,R8) 



Result: 



A contains 66302545 



B 


•I 


60314560 


C 


I! 


00636625 


K 


IT 


64516225 



Q 



incorrect specifications 



= WHEN 

= AINA 

= OTHE (right justified with zero fill) 

= URSE (CO lost) 



5301061105330710 = $1695.78 



9,4 

EDITING 

SPECIFICATIONS 



Editing specifications define spacing between characters and lines, skip records, 
begin new records, and provide a method of adding headings and comments. 



9.4.1 

SPACE (wX) 



The wX specification produces blanks in an output record or skips w characters 
on input to permit spacing of input/output quantities. If w is zero or blank, a 
value of 1 is assumed. The comma after X is optional; see example 2. 
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inxampies: 

1) Output Spacing 



10 



INTEGER A 

WRITE (K1,10)A,B,C 

FORMAT (I2,6X,F6.2,6X,E12.5) 



A contains 7 
B " 13.6 

C " 1462.37 

Result: a7aaaaaaa13.60aaaaaAa1.46237E+ 03 



[•2|— 6- 



-6 — 



-12- 



z) HKipping on inpui 



Input Card 

/15 . 62 A/V$13 . 78 aC0ST/\15 . 97 
|*-5-»] 3 [-5-|— 6 — 4"5-| 



11 
11 



READ (K3,11)R,S,T 

FORMAT (F5.2,3X,F5.2,6X,F5.2) 

or 
FORMAT (F5.2,3XF5.2,6XF5.2) 



Result: R contains 15.62 

S " 13.78 (aa$ spaced over) 

T " 15.97 (aCOST/\ spaced over) 
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9.4.2 

wH OUTPUT 



The wH output specification provides a method of including a set of w 6-bit 
Hollerith characters (Appendix A) in the output record in the form of comments, 
titles, headings, and carriage control characters. 

An unsigned integer w specifies the number of characters to the right of H to 
be included in the output record. If w = 0, or is missing, a value of 1 is 
assumed. The comma following the wH specification is optional. 

Examples: 

1) No I/O List 



20 



WRITE (K7,20) 

FORMAT (28H BLANKS COUNT IN AN H FIELD.) 



Output record: ^ BLANKS ^COUNT aINaANa H aFIELD. 
2) Mixed Specifications 

1 5 7 



30 



WRITE (K4,30)A 

FORMAT (6H LMAX=,F5.2) 



A contains 1 . 5 

Output record : aLMAX=a1 . 50 



9.4.3 

wH INPUT 



With the H specification, a new heading is read into an existing H field. When 
the new characters on an input record are read, the corresponding characters 
are placed into the format list designated in the l/O statement. A subsequent 
output statement puts the new characters in the output record, w specifies the 
number of characters in the input field. 
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Examnle: Innut Card: 



Input Card 
col.l 



y\THIS/\IS;\Ay\VARIAB LE/\HEADING 
2 7 cols . >■ 



I 5 7 



10 



READ (K4,10) 

FORMAT (27Haaaaaaaaaaaaaaaaaaaaaaaaaaa) 
[•• 27 spaces »j 



WRITE (K5,10) 
Result: a THISaISaA aVARIABLEaHEADING 



9.4.4 

NEW RECORD (/) 



A slash, signaling the end of a BCD record, may appear anywhere in the spec- 
ifications list. It need not be separated from other list elements by commas; 
consecutive slashes may appear. During output, it is used to start new records, 
cards, or lines. During input, / specifies the beginnii^ of the next card or 
record. 

Example: 



1) 



5 7 



WRITE (K2,10) 

FORMAT (20X,7HHEADING///6X,5HINPirr,19X,6HOUTPUT) 



Output Record: 
AAAAAMAAAAAAAAAAAAA^EADING 

AAAAAAlNPUTy^AAAAAAAAAAAAAAAAAA^UTPUT 



line 1 
line 2 
line 3 
line 4 



Each line corresponds to a BCD record. The second and third records 
are null and produce the line spacii^ illustrated. 
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2) A contains -11.6 
B " .325 
C " 46.327 
D " -14.261 



11 



WRITE (Kl,ll) A,B,C,D 
FORMT (2E10.2/2F7.3) 



Result: a-I- 16Ea01aa3. 25E-01 
a46. 327-14. 261 



11 



WRITE (K2,ll) A,B,C,D 
FORMAT (2E10.2/ /2F7.3) 



Result: a-1-16Ea01aa3.25E-01 

a46. 327-14. 261 

3) AMAX contains 3. 62 
AMAX+1 " -4. 03 
AMAX+2 " -9.78 

I 



15 



WRITE (Kl,15) (AMAX(I),I=1,3) 
FORMAT (8IV\ANSWERS2 (/) 3F8.2) 



Result: a ANSWERS 



AAAA3. 62AAA-4. 03AAA-9. 78 



Line 1 
Line 2 



line 1 
line 2 
line 3 



line 1 
line 2 
line 3 



9.5 

REPEATED 

SPECIFICATIONS 



A Format specification may be repeated by usuig an unsigned Integer constant 
k as a repetition factor as follows: 

k (spec) 

spec may be any conversion specification. 

For example, if two quantities K, L are to be printed, the program could 
be written: 
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1 5 



10 



WRITE (K1,10)K,L 
FORMAT (12,12) 



Since the specifications for K, L are identical, the FORMAT statement may be 
written: 



I 5 



10 



FORMAT (212) 



When a group of format specifications repeats itself, as in 

FORMAT (E15. 3, F6. 1 , 14, 14, E15. 3, F6. 1 , 14, 14) 

the use of k produces: 

FORMAT (2(E15.3,F6.1,2I4)) 

The parenthetical grouping of the format specifications is called a repeated 
group. 

Repeated groups may not be nested; nor may parentheses be used within re- 
peated groups. 

Examples: 

1) ILLEGAL : 

I 5 



11 



10 FORMAT (IHl, 5(25X, (F6.2))) 



FORMAT (E5.4,3(4X, F5.1, 2(E6.2))) 



2) LEGAL: 



I 5 



12 



FORMAT (1H1(25X,5(F6.2))) 
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9.6 

VARIABLE FORMAT 



Format lists need not be provided with FORMAT statements; instead, they can 
be placed in arrays. Placing format lists in arrays and referencing the arrays 
instead of the FORMAT statement permits the programmer to change, index, 
and specify formats at the time of execution. 

Format arrays are prepared by storing a format list, including left and right 
parentheses, as it would otherwise appear with a FORMAT statement. Variable 
specifications can be read in from cards, chained with replacement statements, 
or preset in labeled common with a DATA statement. 



Examples : 

1) Prepare an array for format list 



(E12.2,F8.2,I7,2E20.3,F9.3,I4) 



DIMENSION IVAR (8) 

READ (KI,1) (IVAR (I), I 

FORMAT (8A4) 



1,8) 



Result: IVAR contains (E12 
IVAR+1 " .2,F 
IVAR+2 " 8.2, 
IVAR+3 " 17,2 



IVAR+4 contains E20. 
IVAR+5 " 3,F9 
IVAR+6 " .3,1 
IVAR+7 " 4)AA 



When using the specifications, reference the array: 



1 5 


7 






WRITE (K2, 

or 
WRITE (K2, 


IVAR (D) A,B,I,C,D,E,J 
IVAR) A,B,I,C,D,E,J 
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Specifications can be changed with replacement statements: 



IVAR (4) = 4%y\;\2 



removes 17 from the format list, permitting 



1 5 



WRITE (K2, IVAR) A,B,C,D,E,J 



2) Prepare two lists that can be selected by indexing at time of execution. 

Lists: (E12.2, F8.2, 217) 
(F8.2, E12.2, 217) 



COMMON/ DATA/LAIS (8) 

DATA (LAIS = 4H(E12,4H.2,F,4H8.2,4H2I7),4H(F8.,4H2,E1,4H2.2,4H2I7) 



Result: LAIS contains (E12 
LAIS+1 " .2,¥ 
LAI&f2 " 8.2, 
LAIS+3 " 217) 



LAISi-4 contains (FS. 
LAISi-5 " 2, El 
LAIS+6 " 2.2, 
LAISf7 " 217) 



These could be referenced as: 



I 5 7 



16 



1 = 1 
Go to 16 

1 = 5 

WRITE (K3, LAIS (I)) A,B,I,J 
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Result: When 1=1 



AAAaI- 67Ea04;^15. 15;V^Aa654a801657 



«- 7-*— 7-J 



When 1=5 



16738 . 32aaaa1 • 52Ea0]aaaa654a801657 



h 



H 



9.7 

CARRIAGE 

CONTROL 



The first character of a listable output record is used for printer carriage 
control, and is not printed. Usually, this character is an H format in a 
FORMAT specification which is used by a PRINT or WRITE on OUT state- 
ment. 



Character Action Before Print 



Action After Print 



1 


\ 
Skip to format level 8 


Space one line 


2 


Skip to format level 7 


Space one line 


3 


Skip to format level 6 


Space one line 


4 


adp to format level 5 


Space one line 


5 


Skip to format level 4 


Space one line 


6 


Skip to format level 3 


Space one line 


7 


Skip to format level 2 


Space one line 


8 


Skip to format level 1 


Space one line 


A 


No space 


Skip to format level 8 


B 


No space 


Skip to format level 7 


C 


No space 


Skip to format level 6 


D 


No space 


Skip to format level 5 


E 


No space 


Skip to format level 4 


F 


No space 


Skip to format level 3 


G 


No space 


Skip to format level 2 


H 


No space 


Skip to format level 1 


blank 


No space 


Space one line 


(zero) 


Space one line 


Space one line 


- 


Space two lines 


Space one line 


* 


No space 


No space 


other 


No space 


Skip to format level 1 
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INPUT/OUTPUT STATEMENTS 10 



Input/output statements control the transfer of information between the storage 
unit and an external device. 

In the I/O control statements: 

i indicates the logical vinlt number; must be a simple integer variable 

or an integer constant. 

n identifies the format list. It is either a FORMAT statement number 

or the name of the variable containing the format list. Binary data 
transmission does not require n. 

list Indicates the I/O list (Section 9. 1) 

Binary data is transmitted with odd parity-checking bits; BCD with even parity- 
checking bits. 



10.1 

OUTPUT 

STATEMENTS 

10.1.1 

PRINT RECORD PRINT n, list 



Transfers information from the storage locations in list to the standard output 
unit. This information is transferred as line printer images, 136 characters 
or less per line, in accordance with format list n. The maximxmi record length 
is 136 characters, but the first character of every record is used for carriage 
control on the printer and is not printed. 
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Example: 



16 



PRINT 16, A 

FORMAT (10H/^RESULTy^=y^, F7.3) 

PRINT MESS, ADDR 



Array MESS is a variable format list. It currently is: 
(IOHaERRORaATa, 08) 

MESS contains (lOH 
MESS+1 " A ERR 
MESS+2 " ORaA 
MESS+3 " Ta,0 
MESS+4 " 8) A A 



10.1.2 

PUNCH CARD RECORD 



PUNCH n, list 

Transfers information from the memory locations given by the list to the 
standard punch unit. This information is transferred as Hollerith images, 80 
characters or less per card in accordance with the format list n. A maximum 
of 80 characters is permitted on one card. 



10.1.3 

WRITE BINARY RECORD WRITE (i) list 

WRITE TAPE i, list 



Transfer binary information from the storage locations given by the list iden- 
tifiers to the specified logical unit (i may be 1-55). If the list is omitted, the 
statement acts as a no operation. 
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The number of elements in the list determines the number of physical records 
to be written on the unit. A physical record contains a maximum of 128 words; 
the first word is a count word, the remaining 127 words contain the transmitted 
data. The last physical record may contain from 2 to 128 words. The physical 
records written by one write binary record statement constitute one logical 
record. Information is recorded in odd parity (binary mode), as illustrated in 
figures la and lb. 

For k physical records in the logical record, the first word of all records 
except the kth contains zero ; the first word of the kth record contains the 
integer k. If there is only one physical record, the first word contains the ' 
integer 1. 

Examples: 



DIMENSION A(260), B(4) 
WRITK (10) A, B 

or 
WRITE TAPE 10, A, B 

DO 5 I = 1, 10 

WRITE (6) AMAX(I),(M(I,J), J=l,5) 

or 
WRITE TAPE 6, AMAX(I) , (M(I, J) , J=l,5) 



10.1.4 

WRITE BCD RECORD 



WRITE (i,n) list 

WRITE OUTPUT TAPE i,n,Iist 



Transfer information from storage locations given by identifiers in the list to 
tape unit (i) according to the format list n, i may be 1 to 55, 59, 61 , or 62. 

A logical record containing up to 136 characters is written on magnetic tape ip 
even parity (BCD mode) . Each logical record is one physical record. The 
number of elements in the l/O list and the format list (n) determines the number 
of records to be written on a unit. If the logical record is less than 136 char- 
acters, the remainder of the record is filled with blanks to the nearest multiple 
of 4 characters. 

When the tape is to be printed the first character of a record is a printer conT 
trol character that will not be printed. If the programmer fails to allow for a 
printer control character, the first character of the output data is lost on the 
printed listing. 
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WRITE: BINARY (ODD PARITY) k WORDS 
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10.2 

INPUT STATEMENTS 



Examples: 



1 5 


7 






WRITE (10,20) A,B,C 






WRITE OUTPUT TAPE 10,20,A,B 


,c 


20 


FORMAT (3F10.6) 
WRITE (4,21) 

or 
WRITE OUTPUT TAPE 4,21 




21 


FORMAT (33H THIS STATEMENT HAS NO DATA LIST,) 





10.2.1 

READ CARD RECORD 



READ n, list 

Reads one or more card images from the standard input unit, converting the 
information, from left to right, in accordance with form^at list n, and stores 
the converted data in the locations named in the l/O list. The im^es read may 
come from 80 -column Hollerith cards or from magnetic tapes prepared off-line 
containing 80-character records in BCD mode. 

Example: 



10 



READ 10, A,B,C 
FORMAT (3F10.4) 



10.2.2 

READ BINARY RECORD READ (i) Ust 

READ TAPE i, list 



Transfer one logical record of information from logical unit i (1 through 55) to 
storage locations named by the list identifiers. 

The record being read must have been written in binary mode by a WRITE (i) 
list or WRITE TAPE i, list statement. The word count is not transmitted to 
the input area. The number of words in the list must be equal to or less than 
the number of words in the corresponding write statement. 

When the Ust is omitted, the binary read statement spaces over one logical 
record. 
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Examples: 



1 5 


7 






DIMENSION C(264), BMAX(IO) , M2(10,5) 
READ (10) C 






or 
READ TAPE 10, C 




7 


DO 7 1=1,10 

READ TAPE 6, BMAX(I) , (M2(I, J) , J=L,5) 
READ (5) (skip one logical record on 
READ (6) ((A(I,J),I=1,100),J=1,50) 

or 
READ TAPE 6, ((A(I, J) ,1=1,100) ,J=1, 50) 


unit 5) 



10.2.3 

READ BCD RECORD 



READ (i,n) list 

READ INPUT TAPE i,n, list 

Transfer one logical record of information from logical unit i (1 through 55, 
58, 60) to storage locations specified in the list according to format list n. 

The number of words in the list and the format specifications must conform to 
the record structure on the logical unit (up to 136 characters in BCD mode). 
The record being read must have been written in BCD mode; reading a binary 
record with a BCD read statement causes a parity error. 

Examples: 



1 5 


7 






READ INPUT TAPE 10, 11, X, Y, Z 




or 






READ (10,11) X, Y, Z 




11 


FORMAT (3F10.6) 





1 = 5 

READ (2, MB(I)) (Z(K), K = 1,8) 



10-6 



Array MB contains indexed variable specifications 
MB (1) contains (FIO 



MB (2) 




■4) A 


MB (3) 




(FIO 


MB (4) 




•3)a 


MB (5) 




(FT. 


MB (6) 




2)a A 


uise 1=5, 


the ] 


input f o 



10.3 

BUFFER 

STATEMENTS Primary differences between the buffer and read/write I/O statements are: 

1. In a buffer control statement, parity must be specified by a parity 
indicator. The mode of transmission (BCD or binary) for read/write 
statements, however, is tacitly implied by the form of the control 
statement. 

2. The buffer control statements are not associated with I/O or format 
lists; data transmission occurs (without conversion) to or from one 
area in storage. Read/write control statements, however, are asso- 
ciated with I/O lists and, in BCD transmission, with format lists. 

3. Only one physical record is transferred per buffer request. 

4. A buffer control statement initiates data transmission and then returns 
control to the program , permitting the program to perform other tasks 
while data transmission is in progress. Before buffered data is used, 
the status of the buffer operation should be checked. 

5. Buffer statements permit reverse reading. 
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10.3.1 

BUFFER IN 



BUFFER IN (i,p) (a,b) 

i logical unit (1 to 55) 

p direction and mode; 

p = forward read, BCD mode 

1 forward read, binary mode 

2 reverse read, BCD mode 

3 reverse read, binary mode 

a first variable of the block to be transmitted 
b last variable of the block to be transmitted 

This statement transmits one physical record of information in mode p from 
unit i to storage locations a through b. If the tape being read was written by a 
BCD write statement, only one physical record (136 characters or less) is 
read. Provision must be made for the count word which is buffered in with the 
data written with binary write statements. When p = 2 or 3, the record is 
read in reverse and the words stored from b to a. 

When BUFFER IN requests transmission of more words than are on the record, 
the words are stored from a to k, where k is less than b and contains the last 
word on the record, regardless of the direction of the read. 

A magnetic tape written m binary mode must be read in odd parity; a tape 
written in BCD mode must be read in even parity. 

The first word address (a) must be less than or equal to the last word 
address (b) or the job is terminated. 



10.3.2 

BUFFER OUT 



BUFFER OUT (i,p) (a,b) 



i logical unit (1 to 55) 

p BCD mode 
1 binary mode 

a first variable of block to be transmitted 

b last variable of block to be transmitted 

The statement transmits information from storage locations a through b and 
writes one physical record on logical unit i in mode p. The physical record 
contains all the words from a to b. Attempting to reverse BUFFER OUT by 
using p = 2 or 3 causes a diagnostic. 



10-8 



BUFFERED WEITE: BDJARY OR BCD 
BUFFER OUT (l,p) (A,B) 




LENGTH [A, B]-^k 



( isk<l? V^ »/\ 

N 1 f /errgea 

No L \ 



WRITE k WORDS 
[binary or BCD] 
ON UNIT i 




XIT\ 



i logical unit # 

p recording mode 

even-BCD 

1 odd binary 
A first word 
B last -word 



MAGNETIC TAPE 







- 




MEMORY 




k words 


A 


i 


I 






k W( 


Drds 






B 


' 


' 












__^^__ 



PHYSICAL RECORD 
^ -LOGICAL RECORD 
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The first word address (a) must be less than or equal to the last word address 
(b) or the job is terminated. 



10.4 

PARTIAL RECORD 



After a BCD or binary read, the tape always moves to the next logical record; 
after a BUFFER ESF statement, the tape moves to the next physical record even 
though the entire record may not have been transmitted. Consequently, the 
next READ or BUFFER IN statement does not read the remainder of the record. 
For a reverse BUFFER M, the tape moves to the beginning of the same physical 
record. 



Example: 



IC^ 



12 



DIMENSION C(10), D(120) 

READ (3, 10) C- 
FORMAT (lOAl) 
READ (3, 12) D — 
FORMAT (12F10.2) 



logical 
record 



•sap 



rec.sap 



rec.gap 



10 characters 
transmitted 

110 characters 
not transmitted 



120 characters 

transmitted 



10.5 

TAPE HANDLING 

STATEMENTS 



When a REWIND or a BACKSPACE is the next I/O operation after a write 
operation, the FORTRAN I/O routine writes an end-of-file, backspaces over 
it, and then executes the command. 



The logical unit number, i, is an integer variable or an integer constant. 
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10.5.1 

REWIND 



REWIND i 



Rewinds the magnetic tape mounted on imit i (1 to 55) to the load point. When 
the tape is already rewoxmd, the statement acts as a do-nothing statement. 



10.5.2 

BACKSPACE 



BACKSPACE i 



Backspaces the magnetic tape mounted on unit i (1 to 55, 60, 61, or 62) one 
logical record. (A logical record is a physical record except for tapes written 
by a WRITE (1) list or WRITE tape 1, list statement.) When the tape is already 
at the load point (rewound) BACKSPACE i acts as a do-nothing statement. 



10.5.3 

ENDFILE 



ENDFILE i 



Writes an end-of-flle on the magnetic tape mounted on unit i (1-55). 
tic is provided if 1 is not a magnetic tape imlt. 



A diagnos- 



10.6 

STATUS CHECKING 



The FORTRAN library contains functions and subroutines that check status 
after I/O operations. 



All parameters must be type integer. 

EOFCK and lOCHK are used with read/write I/O control statements, 
they reference buffered units, the job terminates abnormally. 



When 



10.6.1 

END-OF-FILE CHECK 



subroutine EOFCK (i,j) 
function EOFCKF (i) 

Either subprogram checks the status of the previous I/O request on logical 
unit 1. If an end-of-file was encountered while trying to read, the subrou- 
tine stores a one in variable j ; the function returns a one (in the A register) to 
the calling statement. A two is stored or returned if the condition did not 
occur. 
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10.6.2 

PARITY CHECK 



subroutine lOCHK (i, j) 
function lOCHKF (i) 

Either subprogram checks the status of the previous I/O request on logical 
unit i to determine if a parity error has occurred. When an error has occurred, 
the subroutine stores a one in variable j ; the function returns a one (in the A 
register) to the calling statement. A two is returned when no parity error has 
occurred. 



10.6.3 

UNIT STATUS TEST 



subroutine UNITST (i,j) 
function UNITSTF (i) 

Either subprogram checks the status of the last buffer operation on logical 
xmit i. For the subroutine, a value is stored in j; for the function, a value is 
returned in the A register where it is used by the calling statement. The value 
is determined accordiagly: 

j = 1 if the previous buffer operation is not complete. 

2 if the buffer operation is complete with no errors. 

3 if the buffer operation is complete, but an end-of-file has been 
sensed. 

4 if the buffer operation is complete, but a parity error occurred. 



10.6.4 

LENGTH TEST 



function LENGTHF (i) 

Determines the number of words transferred during the last BUFFER IN opera- 
tion on unit i. A unit status test must precede a length test. Call UNITST or 
UNITSTF to iusure that the last operation on the unit is complete prior to 
calling LENGTHF. The number of words is returned in the A register for use 
by the calling statement. 
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Example: 



5 7 



50 



J = 1 

BUFFER IN (10,0) (A,Z) 



GO TO (5, 6, 7, 8), 
GO TO (50, 4), J 



70 
8 



80 
200 



Set flag 1 

Initiate buffered read for 
logical unit 10, even parity. 
The first vord of the block 
is A; the last Z 
iraiTSTF (10) Check transmission status 
Read not finished: perforin 
other calculations at 
statement 50 



computation not involving 
information in locations A- 



GO TO 4 

KERR = LENGTHF (10) 

WRITE (21, 70) 

FORMAT (12H EOF UNIT 10) 

GO TO 200 

KERR = LENGTHF (10) 

WRITE (21,80) 

FORMAT (12HPARITY ERROR) 

REWIND 10 

STOP 

CONTINUE 



Calculations complete; 



■f nr^TAasA -FIj^c 



1 



KERR will contain number 
of words read 
Error message 
End-of-file error 

KERR will contain number 
of words read 



BUFFERED transmission 
complete ; continue 
program 
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10.6.5 

ERROR PROCEDURES 
FOR TAPES 



Attempting to read past an EOF without checking for EOF causes job termina- 
tion. For BCD or binary operations, EOFCK or EOFCKF sense the condition; 
for BUFFER IN, UNITST or UNITSTF sense the condition. 

EOF should be checked before parity. For read parity errors, the input routine 
retries the read three times. If the error persists, a diagnostic is provided 
and control returns to the program. 

On write parity errors, the output routine attempts to rewrite the record by 
backspacing over the last physical record, erasing 6 inches of tape, and writing. 
For BCD or binary operations, lOCHK or lOCHKF sense for parity errors; for 
BUFFER M, UNITST or UNITSTF check parity. 



10.7 

INTERNAL 

TRANSMISSION 



The encode/decode statements are comparable to the BCD write/read 
statements with the essential difference that no peripheral equipment is used in 
the data transfer. Information is transferred under format specifications from 
one area of storage to another. 

In the following descriptions: 

n is a FORMAT statement number , a variable identifier or a formal 

parameter representing the associated format list. 

list is the input/output list. 

V is a variable identifier or an array identifier that supplies the 

starting location of the records. The identifier may be subscripted. 

c is an unsigned integer or an integer variable (simple or subscripted) 

specifying the length of a record, c may be an arbitrary number of 
BCD characters. The first record starts with the leftmost charac- 
ter of the location specified by v and contains c BCD characters. 
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10.7.1 

ENCODE 



ENCODE (c, n, v) list 

Converts the information in the list according to format list n and stores it in 
locations starting at v, c BCD characters per record. If the format list 
attempts to convert more than c characters per record, a diagnostic occurs. 
If the number of characters converted by the format list is less than c, the 
remainder of the record is filled with blanks. 

When c is not a multiple of 4, the last record does not fill a computer word; 
the remainder of the word is blank-filled. 



10.7.2 

DECODE 



DECODE (c, n, v) list 

Converts and edits inf ormation from records consisting of c consecutive BCD 
characters (starting at address v) according to format list n and stores it in 
the I/O list. When the format list specifies more than c characters per record, 
a diagnostic is provided. If DECODE attempts to process a character illegal 
imder a given conversion specification, a diagnostic occurs. When fewer than 
c characters are specified, the remainder of the word is ignored. 

Examples: 

1) The following illustrates a method of packing partial contents of two words 
into one word. Information is stored in core as follows: 



LOC(l) contains SSxx 

LOC(6) " xxNN 
To form SSNN in NAME: 



I 5 



DECODE (4,1,L0C(6)) TEMP 

FORMT (2X,A2) 

ENCODE (4, 2, NAME) LOG (1) , TEMP 

FORMT (2A2) 



The DECODE statement places NN, the last, two BCD characters of 
LOC(6) into the two leftmost character positions of TEMP, the temporarj^ 
storage. The ENCODE statement packs SS, the first two characters of 
LOC(l) into the left of NAME and packs NN to the right of SS. 
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By using the R specification, the program can be shortened to: 



ENCODE (4,1, NAME) LOC(l) ,L0C(6) 
FORMAT (A2,R2) 



2) DECODE can be used to calculate a field definition in a format specification 
during program execution. At some point in the program, m is to be spec- 
ified in the statement FORMAT (2A8,Im). m is subject to the restriction 
2< m>9. 



1 
100 



DIMENSION JSPEC (2) 

IF (M .LT. 10 .AND. M .GT. 1) 1, 2 
ENCODE (8, 100, JSPEC) M 
FORMAT (6H(2A«,I,I1,1H)) 

WRITE (10, JSPEC) , A, B, J 



The field definition, M, is tested to insure that it is within limits. If not, 
control goes to statement 2 which may be an error routine. When M is 
within limits, ENCODE prepares a format list includiag m in JSPEC. The 
6H format traasmits (2A8,I to the left of JSPEC; U packs m in the next 
character position; IH) closes the list with a right parenthesis. After 
ENCODE, JSPEC contains (2A8,Im). 

A write statement referring to format JSPEC writes A and B under spec- 
ification A8, and the quantity J under specification Im, where m may vary 
from 2 to 9. 
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3) ENCODE can be used to re-arrange and change Information in a record. 



I 5 7 



10 
11 



I = 3HBCD 

lA = IHl 

ENCODE (8,10,B)I,IA,I 

FORMAT (A2,A1,R2) 

WRITE (10,11)B 

FORMAT (020) 



I contains 22232460 
lA " 01606060 

A2 selects 2223 from I and packs it in the left of B. 
Al selects 01 from lA and packs it to the r^ht of 2223. 
K,2 selects 2460 from I and packs it to the right of 222301. 

Because the format list converts fewer than c characters per record, 3 
blanks are placed in the remainder of the record. 

After the ENCODE, B contains 2223012460606060 = BClD^y^y^y^ 

Printout: 

/\j\/\A 2223012460606060 (the octal equivalent of BC1D/^/^a ) 
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PROGRAM OPERATION 



11 



The SCOPE-32 loader is called into storage by the executive routine whenever 
programs are to be loaded. The loader: 

Loads relocatable binary information 

Links independently compiled subprograms 

Loads and links library routines referenced by a loaded program 

Selects and loads required I/O drivers from the library tape 

Assigns equipment to logical units 

A main program may be written with or without references to subprograms. 

, ^^^^^^ „^ ^^^^ *. m . I ■ 1 J^J.V^^A«^A^ J-UUOb K/^ O. JT XVV.'VJJ.l.niVX 

statement. 



11.1 

CONTROL CARDS 



Compilation and execution of FORTRAN programs under SCOPE control re- 
quires SCOPE control cards, identifiable by a 7, 9 punch in column 1. The 
name of the control statement followed by any necessary parameters begins 
in column 2. Control card name and parameters must be contained on a single. 
80-column card. 



Control statements may be read in sequence from the standard input unit, or 
may be serially presented by the operator. The operator enters them through 
the comment-from -operator unit -usually the console typewriter. 



11.1.1 

JOB CARD 



FORTRAN jobs submitted for processing under SCOPE require a JOB state- 
ment that supplies information to the iastallation accounting routine, identifies 
the programmer, and sets a job-processing time limit. The JOB card must be 
immediately preceded by a SEQUENCE statement. JOB-card format is: 



„JOB,c,i,t; 



NS 
or, 

NP 



ND 
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c charge number, 0-8 characters 

i programmer identification; any number of characters although the 

accounting routine uses only the first four. 

t time limit in minutes for the entire job, including idle time for 

setup as well as running time. The time is interpreted by the 
installation accounting routine. 

NS indicates a single, non-stacked job. Use of NS implies NP as well. 
Prior to execution of the job, all system tape units are rewound and 
unloaded making all l/O units available to the programmer — ^with 
no system unit protection. 

NP suppresses system l/O protection. To prevent unintentionally 

writing on system units, do not use NP when executing FORTRAN 
programs. 

ND inhibits post-execution dump. If this field is blank or omitted, a 
dump will be taken. 

The c, i, and t fields are fixed; they can be blank except for commas. The 
NS/NP field and the ND field are interchangeable (free field) , and may be 
omitted. 

Example: 



,JOB, 



C1964,CW,20,ND 



11.1.2 

FORTRAN 
CONTROL CARD 



FORTRAN is a SCOPE library program ; to be called, loaded, and executed, 
it requires a SCOPE library control card. 



^FORTRAN, L, A, X,P 



L list source language on standard output unit 

A list assembly language on standard output wa.it 

X write load-and-go on standard load-and-go unit 

P punch relocatable binary deck on standard punch unit 
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Parameters can be interchanged or omitted. A parameter can be one or more 
characters in length; only the first character - L, A, X, or P - is significant. 



Example : 



FORlRftN, LIST, ASSEMBLY, XE GUT, PUNCH 



The assembly listing and source language listing will be on the standard output 
unit. The load-and-go and the punch output will be processed on standard imits. 



n.1.3 

LOAD CARD 



This statement loads binary object subprograms into storage. 



f 9LOAD,U2,U2,U3 

uj identify the logical unit numbers, 1-56, previously defined by 
an EQUIP statement (section 11.2) for this run. If logical units 
are not specified, the loader attempts to load from logical unit 
60, standard input (INP). No more than three units may be 
specified. 

An end-of-file terminates loading from each unit. SCOPE loads from the xmits 
in the order specified and then loads binary information from INP if any exists. 

With or without a LOAD statement, unless preceded by a control statement 
such as XFEE (3200 SCOPE COMPASS Reference Manual), a binary object 
program on the standard input unit is loaded into memory when encountered by 
the monitor system. 

Example: 



,LOAD . 



42 
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n.1.4 

RUN CARD 



The RUN statement initiates program execution by transferring control to the 
object program in memory. It is required for all program runs and follows the 
relocatable binary deck if the program is on INP or the LOAD statement if the 
program is on an input tape other than INP. 



RUN,t,NM 



t is the execution time limit in minutes (0 to 999) used by the account- 

ing routine. If t is omitted, the accounting routine assumes blanks. 

NM suppresses the memory map that would otherwise be written on the 
standard output unit (OUT). The map is a list of memory alloca- 
tions of a loaded program prior to execution. When NM is omitted, 
a map is prepared. 



Example: 



.RUN, 



The estimated execution time is 2 minutes; a memory map will be prepared. 



11.1.5 

FINIS CARD 



The FINIS card notifies the compiler that there are no more decks to be com- 
piled. The word FINIS must begin in column 10: 



_10 

FINIS 
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11.2 

EQUIPMENT 

ASSIGNMENT 



SCOPE assigns physical equipment at run time. All references to I/O units 
are by logical unit numbers. The programmer must declare logical unit num- 
bers on EQUIP cards placed after the JOB card or before the RUN card. 

Hardware Definition 



(■ 



7EQUrP,xx=hh 



This statement assigns logical unit xx to available equipment of hardware type 
hh. A diagnostic is provided if specified hardware is unavailable. 



hh= MT 


Magnetic tape 


CR 


Card Reader 


PR 


Printer 


CP 


Card Punch 


TY 


Console Typewriter 


TS 


Channel Typewriter 


Equating Units 




AeQUIP.xx^ 


=^2 



Once defined, a logical unit may be equated with others. The second statement 
equates logical units xxj. Specifying a system vmit (56-63) on the left side ter- 
minates a job. XX2 may be a system unit. 

Example: 



EQUIP 



EQUIP 



,40=CR 
, 10=40 
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Physical Unit Assignment 



EQUIP, xx=hhCcEeUuu 



XX logical unit number 

Ml hardware type mnemonic 

c channel number 0-7, prefixed by C 

e equipment number (controller) prefixed by E 

uu unit number (device) , prefixed by U 

The table illustrates the variety of formats permitted for this statement. An 
x indicates use of a parameter; a blank indicates its omission. 



hh 


Co 


Ee 


Uuu 


x 








X 


X 






X 


X 


X 




X 


X 


X 


X 




X 


X 


X 




X 


X 





Specification of a non-existent channel, equipment, or unit number causes 
job termination accompanied by a diagnostic. 

Example: 



EQUIP, 16=MrC0E0U03 
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n.2.2 

LOGICAL UNITS PROGRAMMER UNITS: 



Logical units 1 through 49, retained throughout each job for reference by the 
programmer. 



SCRATCH UNITS: 

Logical units 50 through 55, held for temporary use during execution of each 
program. These units are released after execution of each program. 



SYSTEM UNITS: 

System units (logical units 56-63) are standard units defined by SCOPE. The 
physical assignments of units differ according to the installation. 

unit 56 Load-and-go (LGO) 

Binary information may be stored here prior to loading and executing. 

unit 57 Accounting Record (ACC) 

Job statements and total time used by the jobs are recorded on this unit. 
Each installation must provide the accounting routine. 

unit 58 Input Comment (CFO) 

Comments from the operator to the monitor system are made on this unit. 

unit 59 Output Comment (CTO) 

Statements from the monitor system to the operator are made on this unit. 
This imit may be used by the programmer for output. 

unit 60 Standard Input (INP) 

Jobs to be processed by SCOPE are placed on this unit by the operator. 

unit 61 Standard Output (OUT) 

Accounting information, diagnostics, dumps, and job control statements 
are recorded on this unit in BCD mode. The programmer noirmally uses 
this unit for off-line llstable output. 

unit 62 Standard Punch Output (PUN) 

Output for punching is recorded on this unit. All records are written in 
binary mode unless otherwise specified. 
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unit 63 



SCOPE Library (LIB) 



The SCOPE library contains the monitor system and all of the programs 
and subprograms which operate under the control of SCOPE; such as, 
FORTRAN, COMPASS, COBOL. 



n.2.3 

EQUIPMENT 
REQUIREMENTS 



The FORTRAN jobs require a minimum system consisting of: 

1 input imit (card reader) 
1 output unit (printer) 
3 magnetic tapes 

This configuration will compile and execute a job containing single or multiple 
subprograms. During compilation, the system employs: 

LU55 Scratch 

LU56 Load-and-go and scratch 

LU63 SCOPE Library 



11.3 

DECK STRUCTURE 



The examples illustrate deck arrangements for compilation and execution of 
FORTRAN programs and subprograms. 



COMPILATION ONLY 



L 



L 



FINIS 



END 



z 



PROGRAM MA.IN 



7fORTRAN,L,A 



7 JOE, 42567, CEW, 15 
y 
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Execute directly from the standard input unit: 



^ 



.UN, 5 



/'FORTRAN binary object deck 



/qJOB, 42567, CEW, 15 



Execute time does not include load time. For this example, execution 
time limit is 5 minutes; job limit is 15 minutes. 

Execute from programmer unit number 49 in addition to the standard 
input unit: 



data 



7 RUN, 5 



/ FORTRAN binary object deck 



n 



LOAD, 49 



EQUIP, 49=Mr 



/7joB,42567,CEW,15 



11-9 



COMPILATION OF FORTRAN MAIN PROGRAM WITH SUBPROGRAMS 



n 



RUN 



A 



LOAD, 56 



/ FINIS 
/ END 




Blank card in 

place of FINIS A 
card r^= 



( Subroutine subprogram deck 



blank 



END 



r 



PROGRAM MAIN 



/^FORTRAN, L,P 



7EQUIP,62=Mr 



^JOB, 42567, CEW, 10 
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FORTRAN PROGRAM WITH COMPASS SUBPROGRAM 



L 



data 



-RUN, 5 



f^ 



L 



I_ 



LOAD, 56 



FINIS 



END 



Tr 



COMPASS source program 



f IDENT TWO 



'COMPASS, I, X,L 



L 



f 



FINIS 



END 



L 



/ FORTRAN source program 



PROGRAM MAIN 



'FORTRAN, A, L,X 



A JOB, 42567, CEW, 20 



This card calls the 
COMPASS assembler. 
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APPENDIX SECTION 



CHARACTER CODES 



Source 
Language 
Character 


BCD 

(Internal 

only)* 

21 


Punch position 
in a Hollerith 
Card Column 


Source 
Langu^e 
Character 


BCD 

(Internal 

only)* 

70 


Punch position 
in a Hollerith 
Card Column 


A 


12-1 


Y 




0-8 


B 


22 


12-2 


Z 


71 




0-9 


C 


23 


12-3 





GO 







D 


24 


12-4 


1 


01 




1 


E 


25 


12-5 


2 


02 




2 


F 


26 


12-6 


3 


03 




3 


G 


27 


12-7 


4 


04 




4 


H 


30 


12-8 


5 


05 




5 


I 


31 


12-9 


6 


06 




6 


J 


41 


11-1 


7 


07 




7 


K 


42 


11-2 


8 


10 




8 


L 


43 


11-3 


9 


11 




9 


M 


44 


11-4 


/ 


61 




0-1 


N 


45 


11-5 


+ 


20 




12 


O 


46 


11-6 


- 


40 




11 


P 


47 


11-7 


blank 


60 


space 


Q 


50 


11-8 


• 


33 


12- 


-8-3 


R 


51 


11-9 


) 


34 


12- 


-8-4 


S 


62 


0-2 


$ 


53 


11 


-8-3 


T 


63 


0-3 


* 


54 


11- 


-8-4 


U 


64 


0-4 


f 


73 


0- 


-8-3 


V 


65 


0-5 


( 


74 


0- 


-8-4 


W 


66 


0-6 


= 


13 




8-3 


X 


67 


0-7 


7^ 


14 
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Magnetic Tape Codes same as 1604. 
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STATEMENTS 



B 



Sibprogram Statements 



Entry Points 



PROGRAM name 
SUBROUTINE name 
SUBROUTINE name (p , p , . . . , p ) 

J. ^ 11 

FUNCTION name (p, ,p„ p ) 

1 ^ n 

ENTRY name 



N* 
N 

N 
N 
N 



Inter-subroutine 



EXTERNAL name ,name , . . . ,name 



N 



Transfer Statements 



CALL name (c, , c„ , . . . , c ) 
12 n 

RETURN 



E 
E 



Data Declaration and Storage Allocation 



Type Declaration 



REAL list 
INTEGER list 
CHARACTER list 
TYPE other (w) list 



N 
N 
N 
N 



Storage Allocations 



DIMENSION v^ (s^ , Sg , Sg) , Vg (s^, Sg , Sg) ,.. . 

COMMON list 

COMMON/DATA/list 

EQUIVALENCE {si^,b^, ...), {si^,h^, ...),. . 

DATA (i^=list), (i2=list). . . 

DATA (i(i,k,l,)=list) 

DATA (((ia, J) , I=i^ , i^) , J=m^ , m2)=Ust) 



N 
N 
N 
. N 
N 
N 
N 



N Non-executable; E Executable 
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Symbol Manipulation , Control and I/O 
Replacement 

Intra-program Transfers 



loop Control 



Miscellaneous Program Controls 



I/O Format 



I/O Control Statements 



V = e 



V^n-i=---v^r^ 



GO TOn 



GOTO(n ....,n ),e 
1 m' 

^F (e) n^,n^,n^ 
IF(je)n^,n2 



DO n i=m , m , m 

•i- ^ O 



CONTINUE 
PAUSE; PAUSE n 
STOP: STOPn 

FORMAT (spec , spec . . . ) 

READ (i,n) list 

WRITE (i,n) list 

READ n, list 

READ (i) list 

READ INPUT TAPE i,n,list 

READ TAPE i,list 

WRITE OUTPUT TAPE i,n,list 

WRITE TAPE i,list 

WRITE (i) list 

BUFFER IN (i,p)(a,b) 

BUFFER OUT (i,p)(a,b) 

PRINT n, list 

PUNCH n, list 



E 
E 

E 
E 
E 
E 



E 
E 
E 

N 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 
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r/O Tape Handling ENDFILE i E 

REWIND i E 

BACKSPACE i E 

Internal Data Manipiilation ENCODE (c,n,v/) list E 

DECODE (c,n,w) list E 

Program and Subroutine Termination 

END N/E 
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CALLING SEQUENCES 



MIXED MODE The form of the external call is: 



RTJ QIQ op t^t 



77 loc parameter word 

op two BCD characters representing operation to be performed: 

AD add MU multiply 

SB subtract DV divide 

ST store EX exponentiate 

t single BCD character representing type of value ia accumulator 

t single BCD character representing type of operand value 

t and t may be: I integer 
R real 
X character 

loc address of operand 

If the operand is an element of an array, the parameter word indicates the 
index register that contains the increment value to obtain the proper element. 
If the array is non-character, any index register may be used. For a char- 
acter array, the index register is: 

B2 for add, subtract, and store operations 
Bl for all other operations 

The following routines are implemented for mixed mode: 



QIQEXRR 


real ** real 


QIQEXRI 


real ** integer 


QIQEXIR 


integer ** real 


QlQEXn 


integer ** integer 


QIQADIR 


integer + real 


QIQADXR 


character + real 


QIQADRI 


real + integer 


QIQADRX 


real + character 


QIQSBIR 


integer - real 


QIQSBXR 


character - real 


QIQSBRI 


real - integer 


QIQSBKX 


real - character 
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QIQMUIR 

QIQMURI 

QlQDVm 

QIQDVRI 

QIQSTXR 

QIQSTRI 

QIQSTRX 

QIQSTIR 



integer 
real 
integer 
real 



/ 
/ 



real 
integer 
real 
integer 



convert character to real and store 
convert real to integer and store 
convert real to character and store 
convert integer to real and store 



TYPE CHARACTER 



The form of the external call is the same as for mixed mode arithmetic. The 
operations represented by op are: 

MU multiply 

DV divide 

EX exponentiate 

The address of the operand value may be a 17-bit address. 

Example: 



CHARACTER L, M, N, P 
L = M*N+P 



The compiler generates a call to an extei^al routine that performs the 
multiplication. (Operand M is in the A register when the return jump is 
executed. ) 

RTJ QIQMUXX 

77 N 

To multiply character variables, the user must provide a COMPASS 
routine that has QIQMUXX as its entry point. 
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Example: 



CHARACTER A, C 
C = A/B 



The compiler generates a call to an external routine that performs the 
division. (Operand A is in the A register when the return jump is executed. ) 

RTJ QIQDVXR 
77 B 

To divide character variables, the user must supply the external routine. 



TYPE OTHER 



The form of the external call is: 



RTJ nnn op t t 
1 2 

77 loc 



parameter word 



nnn 



three BCD characters representing the tjrpe of operation. 
The first character is the first letter of the non-standard 
name (C for complex) . The second character is either the 
second letter of the non-standard name or a period. The 
third character is always a period. 



op 



two BCD characters representing operation to be performed. 

LD load AD add 

load negative 



LN 
ST 



store 



CM complement 



SB 


subtract 


MU 


multiply 


DV 


divide 


EX 


exponentiate 



t and t 



represent the accumulator and operand values: 

R real 

I integer 

X character 

O other 



The parameter word serves the same purpose as it does in mixed mode. 
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The external call for complement is not followed by a parameter word. The 
return Is to the instruction following the RTJ instruction. 

Example: 



TYPE COMPLEX 
INTEGER D 
A = &4-C*D 



(4) A,B,C 



The compiler generates the following calls to external routines, which 
must be supplied by the user. 



RTJ 
77 


CO. LDOO 
C 


routine to load C 


RTJ 

77 


CO. MUOI 
D 


routine to multiply 


RTJ 

77 


CO. ADOO 
B 


routine to add B 


RTJ 

77 


CO. STOO 

A 


routine to store 
result in A 



STANDARD 
SUBPROGRAM 
CALLING 
SEQUENCE 



The standard calling sequence recognized by FORTRAN subroutines and func- 
tions is: 



RTJ 

77 



name 
L(PJ 



77 



L(P^) 



The subprogram being referenced is Identified by name. L(p^) is the address 
of the i^h parameter. If name is a FORTRAN subprogram, it must appear in a 
SUBROUTINE or FUNCTION statement as 



SUBROUTINE name (p^ , , 

or 
FUNCTION name (p-^, . . , 



'Pn) 



A FORTRAN program may reference a COMPASS subprogram by a function 
reference or subroutine call which produces the above calling sequence. 
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Example: 

CALL NAME (Pi p^) 

compiles to: RTJ NAME 
77 L(pj^) 



77 L(Pn) 

FORTRAN produces code that saves and restores contents of index registers 
for subroutines and functions. 
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DIAGNOSTICS 



COMPILATION 

At the completion of compilation of each subprogram , any errors encoimtered during compilation are 
indicated on the standard output unit. A diagnostic in one of the following forms is printed with the 
error message. 

ERROR TYPE xxxx DETECTED AT n STATEMENTS BEYOND NO. m 

ERROR TYPE xxxx DETECTED AT STATEMENT m 

xxxx 4-digit error code 

m a source statement label, or 0- the first statement of the subprogram 

Example: 

ERROR TYPE 0156 DETECTED AT 13 STATEMENTS BEYOND STATEMENT NO. 
COMMON NAME DOES NOT START WITH AN ALPHABETIC CHARACTER 

Error messages are informative (I) , destructive (D) , or fatal (F) . 

A type I error produces an informative message, only. The erroneous statement is compiled and 
the program is executed. 

A destructive error prevents the statement from being compiled. Compilation resumes with the 
next statement but execution is inhibited. 

Detection of a fatal error in a statement causes immediate termination of compilation of the program 
or subprogram. Compilation resumes with the next subprogram but the compiled programs are not 
executed. 



D-1 



Error 

Code Message Type 

0000 PROGRAM TOO LARGE FOR COMPILER TABLES. F 
SEGMENT AND RE -COMPILE 

0001 FIRST STATEMENT NOT PROGRAM, SUBROUTINE, OR FUNCTION-- I 
ASSUME PROGRAM JOB 

0002 PROGRAM FORMAT ERROR— ASSUME PROGRAM JOB I 

0003 PROGRAM NAME DOES NOT START WITH AN ALPHABETIC I 
CHARACTER— ASSUME PROGRAM JOB 

0004 PROGRAM STATEMENT OUT OF ORDER I 

0005 LABELED DECLARATIVE STATEMENT I 

0010 FUNCTION OR SUBROUTINE FORMAT ERROR D 

0011 NO FORMAL PARAMETERS IN FUNCTION STATEMENT D 

0012 FUNCTION NAME DOES NOT START WITH AN ALPHABETIC CHARACTER D 

0013 FORMAL PARAMETER DOES NOT START WITH AN ALPHABETIC D 
CHARACTER 

0014 SUBROUTINE STATEMENT OUT OF ORDER D 

0015 MORE THAN 63 FORMAL PARAMETERS D 

0020 SUBROUTINE FORMAT ERROR D 

0021 SUBROUTINE NAME DOES NOT START WITH AN D 
ALPHABETIC CHARACTER 

0022 FUNCTION STATEMENT OUT OF ORDER D 

0030 DIMENSION FORMAT ERROR F 

0031 ILLEGAL USE OF NAME IN DIMENSION F 
STATEMENT 

0032 DIMENSION NAME DOES NOT START WITH AN F 
ALPHABETIC CHARACTER 

0033 SUBSCRIPT IS NOT AN INTEGER CONSTANT F 
LESS THAN 32768 

0034 FORMAT ERROR IN DIMENSIONING F 

0035 MORE THAN THREE SUBSCRIPTS F 
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0130 eXtEkNAL iORMaT ERROR " 

0131 EXTERNAL NAME DOES NOT START WITH AN D 
ALPHABETIC CHARACTER 

0132 ILLEGAL USE OF NAME IN EXTERNAL D 

0150 LABELED COMMON FORMAT ERROR D 

0151 COMMON FORMAT ERROR D 

0152 ILLEGAL USE OF NAME IN COMMON STATEMENT D 

0153 MORE THAN THREE SUBSCRIPTS IN COMMON D 
STATEMENT 

0154 IDENTIFIER APPEARS MORE THAN ONCE IN D 
COMMON 

0156 COMMON NAME DOES NOT START WITH AN D 
ALPHABETIC CHARACTER 

0157 TWO ELEMENTS IN A SET ARE IN COMMON D 

0160 BLOCK NAME OTHER THAN DATA D 

0161 MORE THAN 253 IDENTIFIERS IN LABELED D 
COMMON OR IN BLANK COMMON 

0240 IDENTIFIER IN TYPE STATEMENT IS PROGRAM D 
OR SUBROUTINE NAME 

0241 TYPE FORMAT ERROR D 

0242 MORE THAN ONE TYPE OTHER D 

0243 TYPE OTHER FORMAT ERROR D 

0244 TYPE OTHER SIZE IS NOT AN INTEGER D 
CONSTANT LESS THAN 32768 

0245 CONFLICT IN SIZE FOR TYPE OTHER STATEMENTS D 

0246 ZERO WORD LENGTH FOR TYPE OTHER D 

0247 TYPE OTHER NAME DOES NOT START WITH AN D 
ALPHABETIC CHARACTER 

0250 NAME TO BE TYPED DOES NOT START WITH AN D 

ALPHABETIC CHARACTER 

0300 EQUIVALENCE FORMAT ERROR D 

0301 SUBSCRIPT FOR TYPE OTHER OR CHARACTER D 
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0302 ILLEGAL USE OF NAME IN EQUIVALENCE D 

0304 EQUIVALENCE RELATION ERROR D 

0306 NAME IN EQUIVALENCE DOES NOT START WITH D 

AN ALPHABETIC CHARACTER 

0400 DATA FORMAT ERROR D 

0401 SUBSCRIPT NOT INTEGER VARIABLE OR D 
INTEGER CONSTANT LESS THAN 32768 

0402 TOO MANY SUBSCRIPTS FOR DIMENSIONED D 
VARIABLE 

0403 FIRST USE OF IDENTIFIER D 

0404 NAME NOT SIMPLE OF DIMENSIONED VARIABLE D 
AND IN LABELED COMMON 

0405 MORE THAN ONE CONSTANT IN DATA LIST FOR D 
SIMPLE VARIABLE 

0406 SUBSCRIPT NOT INTEGER CONSTANT LESS THAN D 
32768 

0407 SUBSCRIPT EQUALS ZERO D 

0411 DATA LIST TOO LONG D 

0412 CONFLICT IN USE OF NAMES OR VARIABLES IN D 
DO IMPLYING LOOP 

0413 N2 LESS THAN Nl — I = Nl, N2 D 

0414 ILLEGAL USE OF NAME IN DATA STATEMENT D 

0415 FORMAT ERROR IN DATA LIST D 

0416 ATTEMPTED NEST OR REPEATS IN DATA LIST D 

0420 K = USED FOR REPEAT D 

0421 DATA LIST TOO SHORT I 

0422 —APPEARS IN DATA LIST D 

0423 -(APPEARS IN DATA LIST D 
0461 MORE THAN 64 DECLARATION STATEMENTS F 
0477 NO LABELED COMMON FOR DATA D 
0501 PARENTHESES DO NOT MATCH. D 
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SIX OF LABELED STATEMENT MISPUNCHED 

0503 STATEMENT LABEL NOT IN SPECIFIED FORMAT. D 
ALPHABETIC CHARACTER, NON-INTEGER NUMBER, 

OR THE LABEL IS GREATER THAN 32767 

0504 LABEL ON THIS STATEMENT HAS BEEN USED D 
PREVIOUSLY. 

0505 IDENTIFIER OF MORE THAN EIGHT CHARACTERS. D 

0506 IDENTIFIER NAME FOLLOWED BY PERIOD. D 
POSSIBLE ERROR IN LOGICAL OPERATOR 

OR OMISSION OF SEPARATOR OR ARITHMETIC 
OPERATOR BEFORE A CONSTANT. 

0507 STATEMENT TOO LONG FOR COMPILER TABLES. D 

0510 MORE THAN 20 CHARACTERS HAVE BEEN USED IN A D 
NUMERIC CONSTANT FIELD. 

0511 THE FIRST CONSTANT IN THIS STATEMENT IS D 
INCORRECT 

0512 I/O STATEMENT IS NOT CORRECT IN FORM. D 

0513 R OR H FIELD OF HOLLERITH CONSTANT D 
NOT SPECIFIED CORRECTLY OR FIELD TOO 

LONG. 

0514 CANNOT IDENTIFY STATEMENT TYPE. D 
STATEMENT NAME MIS-SPELLED OR MISUSED 

OR AN EQUAL SIGN IS MISPLACED. 

0515 SYNTAX ERROR IN FORMAT SPECIFICATION. D 

0516 CONSTANT IN STOP OR PAUSE STATEMENT I 
SHOULD BE 5 OR LESS DIGITS. 

0520 COMPUTED GOTO EXPRESSION CONTAINS A D 
LOGICAL OPERATOR 

0521 MULTIPLE REPLACEMENT STATEMENT CONTAINS D 
LOGICAL OPERATOR 

0522 FORMAT STATEMENT NOT LABELED D 

1000 COMPUTED GO TO LABEL LIST NOT IN CORRECT D 
FORMAT. 

1001 LABEL REFERENCED IN NOT AN INTEGER NUMBER. D 

1002 IF STATEMENT WITHOUT RIGHT PARENTHESIS D 
AFTER EXPRESSION. 
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1003 INCORRECT NUMBER OF LABELS IN IF STATEMENT, D 

1004 LABEL LIST IN INCORRECT FORMAT IN IF D 
STATEMENT. 

1005 LABEL REFERENCE NOT INTEGER NUMBER OR NOT D 
LESS THAN OR EQUAL TO 32767. 

1006 THIS STATEMENT IS TOO LONG TO FIT IN D 
PI LIST, 

1007 LEFT SIDE OF REPLACEMENT STATEMENT NOT D 
IN CORRECT FORMAT. 

1010 AN ILLEGAL FORM OF SUBSCRIPTING HAS D 
OCCURRED IN THIS STATEMENT. 

1011 SUBSCRIPT IS NOT A SIMPLE INTEGER D 
VARIABLE. 

1012 SUBSCRIPT MODIFIER IS NOT AN INTEGER D 
CONSTANT OR IS GREATER THAN 32767. 

1013 DIMENSIONED VARIABLE WITH TOO MANY D 
SUBSCRIPTS APPEARS IN THIS STATEMENT. 

1014 AN ILLEGAL FORM OF SUBSCRIPTING HAS D 
OCCURRED IN THIS STATEMENT. 

1015 CONSTANT ADDEND OF A DIMENSIONED VARIABLE D 
IS GREATER THAN 32767. 

1016 MORE THAN 63 INDEX FUNCTION GENERATED, D 

1017 POSSIBLE MACHINE OR COMPILER ERROR. I-BIT D 
SET IN FORMAT PARAMETER IDLIST ENTRY BUT 

NO DIMENSIONED VARIABLE IN IDLIST. 

1020 PROGRAM OR SUBROUTINE NAME MAY NOT APPEAR D 

1022 INDEX FUNCTION MULTIPLIER GREATER THAN D 

32767. 

1024 SUBROUTINE NAME IN CALL STATEMENT USED D 
BEFORE AS A SIMPLE OR DIMENSIONED VARIABLE. 

1025 INCORRECT FORM OF PARAMETER LIST IN D 
A CALL STATEMENT. 

1026 ENTRY STATEMENT USED BEFORE AS A SIMPLE D 
OR DIMENSIONED VARIABLE. 

1027 ENTRY STATEMENT CANNOT APPEAR IN A MAIN D 
PROGRAM. 



D-6 



1030 DO STATEMENTS NESTED MORE THAN 10 DEEP. D 

1031 RUNNING INDEX OF A DO NOT A SIMPLE D 
INTEGER VARIABLE. 

1032 EQUAL SIGN DOES NOT FOLLOW THE RUNNING D 
INDEX OF A DO. 

1033 FIRST QUANTIFIER IN A DO NOT FOLLCWED D 

BY A COMMA. 

1034 DO STATEMENT DOES NOT END AFTER THIRD D 
QUANTIFIER. 

1035 QUANTIFIER IN DO STATEMENT IS NOT AN D 
INTEGER CONSTANT OR SIMPLE INTEGER 

VARIABLE. 

1036 SECOND QUANTIFIER IN A DO STATEMENT NOT D 
FOLLa\rED BY A COMMA OR END OF STATEMENT. 

1037 DO STATEMENT WHICH TERMINATES AT THIS D 
STATEMENT NUMBER IS OUT OF ORDER. 

1040 ENTRY NAME USED ELSEWHERE IN THE PROGRAM, D 

1041 AN ENTRY STATEMENT CANNOT BE LABELED, D 

1042 ENTRY NAME USED ELSEWHERE IN PROGRAM, D 

1043 AN ENTRY STATEMENT CANNOT APPEAR WITHIN D 
A DO LOOP. 

1044 REFERENCE TO A STATEMENT LABEL OF ZERO D 
IS ILLEGAL. 

1046 THE RUNNING INDEX IN A DO MAY BE CHANGED I 
WITHIN THE LOOP. 

1047 THE UPPER LIMIT VARIABLE (M2) OF THE DO I 
MAY BE CHANGED WITHIN THE LOOP, 

1050 DO INCREMENT VARIABLE (M3) MAY BE CHANGED I 

WITHIN THE LOOP. 

1052 DO QUANTIFIER GREATER THAN 32767 D 

1053 DO INCREMENT (M3) IS ZERO. I 

1054 ALL DECLARATIVE STATEMENTS MUST APPEAR D 
BEFORE THE FIRST EXECUTIVE STATEMENT. 

1055 DO STATEMENTS MAY NOT TERMINATE ON A D 
TRANSFER STATEMENT. 



D-7 



1056 
1057 

1060 

1500 

1510 

1520 
1530 

1540 

1550 

1560 
1570 
2001 

2002 

2003 
2004 
2005 

2006 

2007 
2010 

2011 
2012 



FUNCTION SUBPROGRAM NAME NOT DEFINED. 

THE DO STATEMENT THAT TERMINATES ON THIS 
LABEL IS NOT TERMINATED BEFORE END CARD. 

LOGICAL OPERATORS MAY NOT APPEAR IN 
ACTUAL PARAMETERS. 

INTEGER NUMBER GREATER THAN 2**23-l. 

NO DECIMAL DIGITS PRECEDING OR FOLLOWING 
THE DECIMAL POINT. 

ILLEGAL OCTAL CHARACTER 

MORE THAN ONE DECIMAL POINT 

THE REAL NUMBER HAS MORE THAN ELEVEN 
DIGITS OR HAS EXCEEDED 2**36-l IRRESPECTIVE 
OF THE DECIMAL POINT. 

ILLEGAL CHARACTER IN EXPONENT OR EXPONENT 
TOO LARGE. 

ILLEGAL DECIMAL CHARACTER 

MORE THAN 8 OCTAL CHARACTERS IN STRING 

NO REPLACEMENT VARIABLE IN LOGICAL 
REPLACEMENT STATEMENT. 

NO REPLACEMENT OPERATOR IN LOGICAL 
REPLACEMENT STATEMENT. 

LEFT PAREN MUST ENCLOSE LOGICAL IF 

RIGHT PAREN MUST CLOSE LOGICAL IF 

LOGICAL OR RELATIONAL OPERATOR 
OCCURRED WITHIN PARENTHESES 

AN EXPRESSION MUST PRECEDE .AND. , 
. OR. , OR END OF STATEMENT 

TWO CONSECUTIVE RELATIONAL OPERATORS 

A LOGICAL OPERATOR MUST APPEAR BETWEEN 
WO NOTS 

AN EXPRESSION MAY NOT PRECEDE .NOT. 

AN EXPRESSION ZiJST FOLLOW A RELATIONAL 
OPERATOR 



D 
D 

D 
D 
D 



D 
D 
D 



D 
D 
D 



D 
D 

D 

D 
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UNDEFINED 

2014 MORE THAN 4096 LA. BELS HAVE BEEN GENERATED D 

IN A LOGICAL EXPRESSION 

2500 WRONG FORMAT OF I/O STATEMENT, D 
I/O LIST NOT YET PROCESSED. 

2501 PARITY DESIGNATOR IN I/O STATEMENT MUST D 
BE A SIMPLE INTEGER VARIABLE OR 

NUMBER EQUAL TO OR 1 

2502 FORMAT ERROR OF DO-IMPLYING INDEX, D 

2503 THE PAEAMETERS OF A DO-IMPLYING LOOP D 
MUST BE UNSIGNED INTEGER CONSTANTS OR 

SIMPLE INTEGER VARIABLES. 

2504 THE CONSTANT PARAMETERS OF A DO-IMPLYING D 
LOOP MUST BE LESS THAN 32768. 

2505 UNIT NUMBER MOST BE A SIMPLE INTEGER D 
VARIABLE OR INTEGER CONSTANT LESS THAN 64. 

2506 MORE THAN 145 LEFT PARENTHESES HAVE BEEN D 
ENCOUNTERED IN AN I/O DATA LIST. REMOVE 

REDUNDANT PARENTHESES AND RESUBMIT. 

2507 TYPE OTHER VARIABLES MAY NOT APPEAR IN D 
AN I/O DATA LIST. 

2510 A VARIABLE MUST PRECEDE THE DO- IMPLYING D 
INDEX IN AN I/O DATA LIST. 

2511 THE RUNNING SUBSCRIPT IN A DO-IMPLYING D 
LOOP MUST BE A SIMPLE INTEGER VARIABLE. 

2512 WRONG FORMAT OF I/O DATA LIST OR ILLEGAL D 
ENTRY IN I/O DATA LIST. 

2513 ILLEGAL MODE OF I/O PARAMETER. D 

2700 THE FORMAT STATEMENT REFERENCED DOES NOT D 

APPEAR IN THE SOURCE PROGRAM. 

3000 FUNCTION NAME USED AS REPLACEMENT D 
VARIABLE. 

3001 COM^■]A APPEARS ON PARENTHESES LEVEL ZERO D 

3002 ILLEGAL USE OF ACTUAL PARAMETER D 
3021 OPERATOR MISSING IN ARITHMETIC EXPRESSION D 



D-9 



3026 / - APPEARS IN ARITHMETIC EXPRESSION D 

3060 FUNCTION TERMINATES ARITHMETIC EXPRESSION D 

3061 ILLEGAL USE OF FUNCTION IN ARITHMETIC D 
EXPRESSION 

3065 FUNCTION + APPEARS IN ARITHMETIC EXPRESSION D 

3066 FUNCTION - APPEARS IN ARITHMETIC EXPRESSION D 

3067 FUNCTION * APPEARS IN ARITHMETIC EXPRESSION D 

3070 FUNCTION / APPEARS IN ARITHMETIC EXPRESSION D 

3071 FUNCTION ** APPEARS IN ARITHMETIC EXPRESSION D 

3072 FUNCTION = APPEARS IN ARITHMETIC EXPRESSION D 
3112 CONSTANT = APPEARS IN ARITHMETIC EXPRESSION D 
3114 NUMBER ( APPEARS IN ARITHMETIC EXPRESSION D 
3120 + TERMINATES ARITHMETIC EXPRESSION D 

3125 + + APPEARS IN ARITHMETIC EXPRESSION D 

3126 + - APPEARS IN ARITHMETIC EXPRESSION D 

3127 + * APPEARS IN ARITHMETIC EXPRESSION D 

3130 + / APPEARS IN ARITHMETIC EXPRESSION D 

3131 + ** APPEARS IN ARITHMETIC EXPRESSION D 
3133 + , APPEARS IN ARITHMETIC EXPRESSION D 
3135 + ) APPEARS IN ARITHMETIC EXPRESSION D 
3140 - TERMINATES ARITHMETIC EXPRESSION D 

3145 - + APPEARS IN ARITHMETIC EXPRESSION D 

3146 - - APPEARS IN ARITHMETIC EXPRESSION D 

3147 = * APPEARS IN ARITHMETIC EXPRESSION D 

3150 - / APPEARS IN ARITHMETIC EXPRESSION D 

3151 - ** APPEARS IN ARITHMETIC EXPRESSION D 
3153 - , APPEARS IN ARITHMETIC EXPRESSION D 
3155 - ) APPEARS IN ARITHMETIC EXPRESSION D 
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3165 * + APPEARS IN ARITHMETIC EXPRESSION D 

3166 * - APPEARS IN ARITHMETIC EXPRESSION D 
3170 * / APPEARS IN ARITHMETIC EXPRESSION D 
3173 * , APPEARS IN ARITHMETIC EXPRESSION D 
3175 * ) APPEARS IN ARITHMETIC EXPRESSION D 
3205 / + APPEARS IN ARITHMETIC EXPRESSION D 
3207 / - APPEARS IN ARITHMETIC EXPRESSION D 

3210 / / APPEARS IN ARITHMETIC EXPRESSION D 

3211 / ** APPEARS IN ARITHMETIC EXPRESSION D 
3213 / , APPEARS IN ARITHMETIC EXPRESSION D 
3215 / ) APPEARS IN ARITHMETIC EXPRESSION D 

3225 ** + APPEARS IN ARITHMETIC EXPRESSION D 

3226 ** - APPEARS IN ARITHMETIC EXPRESSION D 

3227 ** * APPEARS IN ARITHMETIC EXPRESSION D 

3230 ** / APPEARS IN ARITHMETIC EXPRESSION D 

3231 ** ** APPEARS IN ARITHMETIC EXPRESSION D 
3233 ** , APPEARS IN ARITHMETIC EXPRESSION D 
3235 ** ) APPEARS IN ARITHMETIC EXPRESSION D 
3240 = TERMINATES ARITHMETIC EXPRESSION D 
3247 = * APPEARS IN ARITHMETIC EXPRESSION D 

3250 = / APPEARS IN ARITHMETIC EXPRESSION D 

3251 = ** APPEARS IN ARITHMETIC EXPRESSION D 

3252 = = APPEARS IN ARITHMETIC EXPRESSION D 

3253 = , APPEARS IN ARITHMETIC EXPRESSION D 
3255 = ) APPEARS IN ARITHMETIC EXPRESSION D 
3260 , TERMINATES ARITHMETIC EXPRESSION D 
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3267 , * APPEARS IN ARITHMETIC EXPRESSION D 

3270 , / APPEARS IN ARITHMETIC EXPRESSION D 

3271 , ** APPEARS IN ARITHMETIC EXPRESSION D 

3272 , = APPEARS IN ARITHMETIC EXPRESSION D 

3273 , , APPEARS IN ARITHMETIC EXPRESSION D 
3275 , ) APPEARS IN ARITHMETIC EXPRESSION D 
3300 ( TERMINATES ARITHMETIC EXPRESSION D 
3307 ( * APPEARS IN ARITHMETIC EXPRESSION D 

3310 ( / APPEARS IN ARITHMETIC EXPRESSION D 

3311 ( ** APPEARS IN ARITHMETIC EXPRESSION D 

3312 ( = APPEARS IN ARITHMETIC EXPRESSION D 

3313 ( , APPEARS IN ARITHMETIC EXPRESSION D 
3315 ( ) APPEARS IK ARITffi-iETIC EXPRESSION D 
3334 ) ( APPEARS IN ARITHMETIC EXPRESSION D 

3500 STATEMENT NOT LABELED AND IS PRECEDED I 
BY A NON-RETURN TRANSFER. STATEMENT 

CAN NOT BE EXECUTED. 

3501 INCORRECT STATEMENT FORMAT D 

3502 N IS NOT AN INTEGER NUMBER IN A STOP OR D 
PAUSE 

3503 ENTRY STATEMENT CAN NOT BE LABELED D 

3504 STATEMENT LABEL REFERENCED IN UNDEFINED D 

3505 NO LEFT PAREN IN ARITHMETIC IF D 

3506 CALL STATEMENT MUST TERMINATE WITH A D 
RIGHT PAREN 

3507 NO EXPRESSION IN ARITHMETIC IF D 
3600 POSSIBLE MACHINE ERROR. RECOMPILE JOB. F 

5001 FORTRAN I/O ERROR REWIND REJECT LUN 55 F 

5002 FORTRAN I/O ERROR READ REJECT LUN 60 F 
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50Q4 FORTRAN I/O ERROR WRITE REJECT LUN 55 F 

5005 FORTRAN I/O ERROR WRITE REJECT LUN 56 F 

5006 FORTRAN I/O ERROR BINARY CARD LUN 60 F 

5007 FORTRAN I/O ERROR END OF FILE LUN 60 F 

5010 FORTRAN I/O ERROR END OF TAPE LUN 55 F 

5011 FORTRAN I/O ERROR WRITE ERROR LUN 55 F 

5012 - FORTRAN I/O ERROR END OF TAPE LUN 56 F 

5013 FORTRAN I/O ERROR WRITE ERROR LUN 56 F 

5014 FORTRAN I/O ERROR READ ERROR LUN 60 D 

5015 FORTRAN I/O ERROR READ ERROR LUN 55 F 

5016 FORTRAN I/O ERROR READ ERROR LUN 56 F 

5017 POSSIBLE MACHINE ERROR— ENDPI F 

5030 LABELED COMMON REQUIRES MORE THAN 32768 WORDS OF F 
STORAGE 

5031 NUMBERED COMMON REQUIRES MORE THAN 32768 WORDS OF F 
STORAGE 

5032 PROGRAM LENGTH EXCEEDS 32768. SEGMENT AND RECOMPILE F 



I/O DIAGNOSTICS 

The standard format used in printing the majority of diagnostics from the object time I/O routines 
is the following: 

ERROR IN rrrrrrrr CALLED FROM xxxxx z . . . z 

n 

rrrrrrrr name of the routine in which the error occurred 

xxxsx address from which the routine was last called 

z, . . . z error message 

In 
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Message 



Description 



PARITY ERROR ON LU xx 



A persistent parity error occurred on logical unit xx; 
execution continues. This condition can be sensed by 
using lOCHK or lOCHKF. 



END OF TAPE ON LU xx 



An end of tape condition was sensed on logical unit xx. 
The unit is unloaded and the next READ or WRITE tape is 
mounted. Execution continues. 



LOST DATA ON LU xx 



ILLEGAL I/O ON LU xx 



A lost data condition was encoumtered on logical unit xx; 
the job will be terminated abnormally. 

An illegal I/O operation was requested on logical unit xx. 



a) Logical unit is not in the defined range for the 
particular I/O operation. 

b) SCOPE rejected the I/O request, such as reading 
from the printer or writing on the card reader, or 
attempting to write a tape which does not have a write 
enable ring. 



UNCHECKED EOF ON LU xx 



On the last read operation, an end of file was encountered 
on logical unit, xx and no check has been made. 



STANDARD REF TO BUFFER 
TAPE XX 



A standard data transmission operation has been requested 
on logical unit xx where the previous operation was a 
buffer. 



RECORD OVERFLOW LU xx 



A BCD read or write request calls for input or output 
of data outside of the defined record area. For BCD 
read or write, the record limit is 136 characters; for 
ENCODE/DECODE, the record limit is c characters. 



LIMITS ON BUFFER I/O 
INCONSISTENT 



The first word and last word addresses of the BUFFER 
IN/BUFFER OUT statement do not comply with the rule 
that first word address must be less than or equal to 
last word address. 



LIST EXCEEDS DATA 



The list of a binary read request called for more data 
than was in the logical record. 



SYNC ERROR 



During a binary tape read, an end of file was encountered 
in the middle of a logical record. Since this cannot be 
generated by the binary write routine, an error has 
occurred. 



D-14 



Message 



ILLEGAL CODE ON INPUT 



Description 

An illegal character was encountered in the input field; 
for example, an 8 or 9 in an octal field or an alphanumeric 
character in a numeric field. 



INTEGER INPUT GE 2**23 



An Iw input field contained a number exceedrag the 
range of integer constants (greater than 223-1). 



EXPONENT OVERFLOW 



A calculation during conversion overflowed the limits 
of the floating point format. 



TOO MANY DECIMAL PTS 



More than one decimal point encountered in an Ew.d or 
Fw.d input field. 



FORMAT STATEMENT DIAGNOSTICS 

Alii. 1.WJ. £D ^U-^^yJU-l^VCi. a^Ljl <uLU.J.XJ-Lg, JLL±l/%^A.j~/l.^^t/a.UJL*^±± \^L ±\^±.^±ia.tf XJLtJi/tJ X V^I^U.^If X±J. UIX^^ Xi.'XXV./Vr XXXg U.XCt^J^«-/OlfXW • 

FORMAT ERROR x - zzzzz 

X numeric error code 
zzzzz first word address of the format statement in which the error occurred. 

X Description 

1 Format list does not begin with a left parenthesis. 

2 Illegal repeat factor was encountered. 

a) repeat factor equals zero 

b) repeat factor is not an integer 

3 Unrecognizable format conversion; the format conversion is designated by 
a symbol other than E, F, I, A, R, O, H, X. 

4 Illegal field width or missing field width. 

a) field width equals zero 
ta) no field width present 

c) illegal character in field width specification 

5 A number precedes a slash, comma, or right parenthesis. 

6 Parenthesis error 

a) repeat groups may not be nested 

b) a parenthetical grouping may not appear within a 
repeat group. 

7 Improper format of numeric field within format statement. 

a) more than one decimal point appears in the numeric field 

b) numeric value exceeds 2-'^5-l 
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OVERLAY - SEGMENT DIAGNOSTICS 

An error detected while calling or loading a segment or overlay causes the job to terminate 
abnormally. A message is written in the form: 

XX ERROR IN OVERLAY-SEGMENT 

Error Code 

XX Meaning 

EX Exit made from main program. 

MR Read error; or overlay or segment cannot be 

found. 

MT Logical unit (parameter i) is not a magnetic 

tape unit. 

OI Parameter o in CALL OVERLAY is not 1 through 99. 

OM Overlay which called segment is not in core. 

OO Overlay called by overlay or segment. 

OS Segment called out of order. 

RD Read error from tape unit. 

SI Parameter s in CALL SEGMENT is not 1 through 99. 

SZ Parameter s in CALL OVERLAY is not zero. 
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INDEX 



Aw conversion 9-4, 9-15, 9-16 
Alphanumeric characters 1-3 
AND 3-16 

AND. 3-10 
Arithmetic, masking 3-16 

type character 3-7 

type integer 3-7 

type other 3-8 

type real 3-7 

mixed-mode 3-7 
Arithmetic elements 3-1 
Arithmetic expressions 3-1 

order of evaluation 3-2 

hierarchy of operators 3-2 

mixed-mode 3-8 
Arithmetic IF 6-2 
Arithmetic operators 3-1 
Arithmetic replacement statement 4-1 
Array - see Subscripted variable 

subscripts 2-4 

elements 2-5, 5-7 

structure 2-5 

dimensions 2-3, 5-2, 5-3 

transmission 9-1, 9-2 
Assembly language 

listing 1-1, 11-3 



BACKSPACE 10-11 

Buffer statements 

BUFFER IN (i,p) (list) 10-8 
BUFFER OUT (i,p) (list) 10-8 



CALL statement 7-2 

Calling program 7-2 

Carriage control 9-20, 9-26, 10-1 

CHARACTER 5-1 

Character codes A-1 

Character data, preset 5-10 

Character operations provided 3-7 



Character variables, dimensioned 5-3 
Character, explicit 5-1 
Characters, FORTRAN 1-3 
Check end-of-file 10-11 
Check parity 10-12 
Coding form 1-4 
Coding line 1-3 
COMMON 5-4, 5-8 

blank 5-4 

labeled 5-4 

numbered 5-4 

length 5-5 
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Compilation diagnostics D-1 
Computed GO TO 6-1 
Constants 

integer 2-1 

octal 2-1 

real 2-2 

HoUerith 2-2 

word size and structure 2-1, 2-2 
CONTINUE 6-7 
Continuation lines 1-4 
Control statements 6-1 
Conversion specifications 9-5 



/DATA/ 5-4 
DATA 5-10 
Data, preset 5-10 

character preset 5-12 
Declarations, type 5-1 
DECODE (c,n,v) list 10-15 
Diagnostics 

compilation D-1 

execution D-13, D-15, D-16 

format D-15 

I/O D-13 

overlay segment D-16 
DIMENSION 5-2 
Divide fault 8-10 
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DO loop, execution 6-3 
properties 6-3 
transfer 6-7 

DO nests 6-5 
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E conversion 9-5, 
Ew.d 9-5, 9-7 
Editing specifications 9-18 
Element of array 2-5 

location 2-5, 5-7 
Elements, arithmetic 3-1 
ENDCODE (c,n,v) list 10-15 
END 7-11 
ENDFILE 10-11 
End -of -file check 10-11 
ENTRY statement 7-10 
EOR 3-17 
.EQ. 3-12 
EQUIP card 11-5 
EQUIVALENCE 5-7 
Evaluation, arithmetic expression 3-2 

mixed mode 3-7 
Execution diagnostics D-13, D-15, D-16 
Explicit type definitions 5-1 
Exponent fault 8-10 

Expressions, general description of 1-2 
Expression, arithmetic 3-1, 4-1 

relational 3-12, 4-1 
EXTERNAL statement 7-9 



F conversion 9-9, 9-10 

Fw.d 9-9, 9-10 

FINIS card 11-4 

Fixed point — see Integer variable 

Floating point — see Real variable 

conversion 9-5, 9-6 
FORMAT statement 9-4 

diagnostics D-15 

specifications 9-5 
FORTDUMP 8-6 
FORTRAN card 1-5 

characters 1 -3 

statements 1-2 
Function subprogram 7-5 

reference 7-6 



Function, library 8-1, 8-2 
masking 3-16 



.GE. 3-12 

GO TO, computed 6-1 
unconditional 6-1 



wH constants 2-2 

wH editing specification 9-20 

wX editing specifications 9-18 

Heading specification 9-20 

Hierarchy, arithmetic operations 3-2 

operand types 3-8 

type declarations 5-1 
Hollerith constants 2-2 



Iw conversion 9-11, 9-12 
I/O statements 9-1 

list 9-2 
Identification, program 1-4 
IF, three branch (arithmetic) 6-2 

two branch (logical) 6-3 
Implemented routines, character 3-7, 

type other 3-7 

mixed mode 3-8 
Implicit type definitions 2-3 
Implied DO-loop 9-1 
Implied multiplication 3-2 
INTEGER 5-1 
Integer, constants 2-1 

variable, simple 2-3 

implicit 2-3 

explicit 2-3, 5-1 

truncation 3-7, 3-8 

conversion 3-10, 9-12, 9-13 
Internal transmission 10-14 
Iw 9-12, 9-13 



JOB card 11-1 

Label, statement 1-4 
Labeled COMMON 5-4 
.LE. 3-12 
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Length test 10-12 
Library functions 8-1, 8-2 
LOAD card 11-3 
Load-and-go object program 
Logical expression 3-10 

operator 3-11 

IF 6-3 

units 8-1, 10-1, 11-5 
.LT. 3-12 



1-1, 11-2 



Parity check 10-12 

PAUSE 6-7 

PRINT n, list 10-1 

Procedures for tape errors 10-14 

PROGRAM statement 7-1 

Program identification 1-4, 7-1 

sequencing 1 -4 
PUNCH n, list 10-2 



Machine condition subprograms 8-9 

Machine configuration 1-1 

Masking function 3-16 
arithmetic 3-16 

Mixed mode arithmetic 3-7 
arithmetic expression 3-8 
order of evaluation 3-5 
replacement statement 4-2 

Multiple replacement statement 4-1 



.NE. 3-12 

New record specification 9-21 

Non-standard arithmetic 3-8, see type other 

NOT 3-16 

.NOT. 3-10 



Ow conversion 9-14 
Octal constants 2-1 
Operands, mixed mode 3-8 
Operators, arithmetic 3-1 

logical 3-10 

relational 3-12 

replacement statement 4-1 
OR 3-17 
.OR. 3-10 
Order of evaluation 3-2 

mixed mode 3-7 

arithmetic expressions 3-2 
Output options 1-1 
Output statements 10-1 
Overlays 8-3 



Rw conversion 9-17, 9-18 
Read statements 10-5, 10-6 

READ (i,n) list 10-6 

READ (i) list 10-5 

READ INPUT TAPE i,n, list 10-6 

READ TAPE i, list 10-5 

READ n, list 10-5 
REAL 5-1 
Real constants 2-2 

variable, simple 2-3, 5-1 
Real, implicit 2-3 

explicit 5-1 
Relational expression 3-12 

operators 3-12 
Relocatable binary 1-1, 11-2 
Repeated specifications 9-22 
Replacement statement, arithmetic 4-1 

multiple 4-1 

mixed mode 4-2 
Reserved storage 5-3 
Re s e rved wo rd 9-4 
RETURN 7-11 
REWIND 10-11 
RUN card 11-3 



SCOPE control cards 11-1 

Segments 8-3 

Sense light 8-9 

Sense switch 8-9 

Sequencing, program 1-4 

Simple variables 2-3 

Source program 1-3 

Source program listing 1-1, 11- 
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Space specification 9-18 

Statement, general description of 1-2 

Statement label 1-4 

continuation 1-4 
Status checking 10-11 
STOP statement 6-8 
Storage allocation 5-2, 5-4 

sharing — see EQUIVALENCE 
Storing array elements 5-2, 5-4 
Sibprogram, function 7-5 
Subroutine 7-1 

Subroutine library subprogram 8-1 
Subroutine statement 7-2 
Subscripted variable 2-4 
Subscripts, array 2-4 



wH specifications 9-20 
Write statements 

WRITE (i,n) list 10-3 

WRITE OUTPUT TAPE, i,n, list 

WRITE (i) list 10-2 

WRITE TAPE, i, list 10-2 
wX editing specifications 9-18 
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Tape error procedures 10-14 
handling statements 10-10 

Test unit status 10-12 

Three branch IF 6-2 

Transmission of arrays 9-4 

Truncation of integers 3-7 

Two branch IF 6-3 

Type character arithmetic 3-7 

Type declarations 5-1 
hierarchy 3-8 

Type statements 5-1 

TYPE other 5-1 



Unconditional GO TO 6-1 
Unit status test 10-12 



Variables 

simple 2-3 

subscripted 2-4 see also 

subscripted variable 

Variable format 9-24 
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